Sub Couleur()
Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(Range("EXZ500").End(xlUp).Row, 4030)).Select
For Each c In Selection
If ActiveCell.Offset(-1, 0).Interior.Color = RGB(242, 242, 242) Then
If c.Interior.Color = RGB(242, 242, 242) Then
c.Interior.Color = RGB(217, 217, 217)
Else
If c.Interior.Color = RGB(217, 217, 217) Then
c.Interior.Color = RGB(242, 242, 242)
End If
End If
End If
Next c
End Sub