Sub centrécolonnes()
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
End Sub
Rétablir les barres et l'écran
Sub Sesame()
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
Réactiver les événements
Sub retablevents()
Application.EnableEvents = True
MsgBox "events retablis"
End Sub