Sub Centrercolonnes()
' Centrer sur plusieurs colonnes
With Selection
If .Cells(1, 1).HorizontalAlignment = xlCenterAcrossSelection Then
.HorizontalAlignment = xlGeneral
Else
.HorizontalAlignment = xlCenterAcrossSelection
.MergeCells = False
End If
End With
End Sub