Conserver l'alternance des couleurs des lignes d'une colonne après tri

=ET($A1<>"";MOD(LIGNE();2))

=ET($A1<>"";MOD(LIGNE();2);LIGNE()>1)

=ET($A1<>"";NON(MOD(LIGNE();2)))

Sub Macro1()
    Columns("A:A").Select
    Cells.FormatConditions.Delete
    Columns("A:A").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET($A1<>"""";MOD(LIGNE();2))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Sub Macro2()
[A:A].FormatConditions.Delete
[A:A].FormatConditions.Add xlExpression, Formula1:= _
  "=ET($A1<>"""";MOD(LIGNE();2))"
[A:A].FormatConditions(1).Interior.ColorIndex = 15 'gris
End Sub