Sub ColorierUneLigneSurDeux()
Dim MaPlage As Range
Application.ScreenUpdating = False
Application.Goto Reference:=Range("A1"), Scroll:=True
With Selection.CurrentRegion
Intersect(.Cells, .Offset(1)).Select
End With
Set MaPlage = Selection
L = ActiveCell.Row
C = ActiveCell.Column
Set MC = ActiveSheet.Cells(L, C)
MyVal = MC.Address(RowAbsolute:=False, ColumnAbsolute:=False)
MaPlage.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=MOD(LIGNE(" & MyVal & ");2)"
Selection.FormatConditions(1).Interior.ColorIndex = 34
ActiveCell.Select
End Sub