Bjr,

Est-il possible de remplacer ce genre de code sans utiliser les select et selection qui prennent du temps ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    Range("E1:F1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
     End With