Sub Color2()
'alternance lignes avec 3 colonnes à partir de la cellule active
L = ActiveCell.Row: C = ActiveCell.Column
For n = L To L + 19 '19 pour le nombre voulu de lignes diminué de 1
'C+2, 2 pour le nombre de colonnes diminué de 1
'3, 4 ou autres pour les couleurs
Range(Cells(n, C), Cells(n, C + 2)).Interior.ColorIndex = IIf(n Mod 2 = 0, 3, 4)
Next
End Sub