With Selection.Font
.Name = 'Arial'
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
End With
Selection.Interior.ColorIndex = xlNone
C'est pas un peu lourd ? Ne modifie que ce qui change réellement, c'est pas la peine de tout remettre à zéro à chaque fois. À la limite, si t'as peur fais-le une fois pour toutes les cellules que tu vas modifier, puis tu n'effectues que ce qui change
With Selection.
Font.Name = 'Arial'
Font.Size = 11
.VerticalAlignment = xlCenter
.Interior.ColorIndex = xlNone
End With