Function ISPAIR(Nb As Long) As Boolean
ISPAIR = Nb Mod 2 = 0
End Function
Sub ColorMAJ(debut As Long, colonnefin As String, longueur As Long)
Dim i As Long
For i = debut To longueur Step 1
If ISPAIR(i) Then
Range("A" & i & ":" & colonnefin & i).Interior.Color = RGB(220, 230, 241)
Else
Range("A" & i & ":" & colonnefin & i).Interior.Color = RGB(241, 245, 249)
End If
Next
End Sub