Sub test()
Dim I As Integer, J As Byte, Tableau
' Déclaration des variables
Range("A:A").Interior.ColorIndex = 2
' La colonne A est passée en blanc
Tableau = Array(6, 35, 37, 7, 3)
' Je mets dans un tableau les couleurs souhaitées
For I = 5 To Range("A35000").End(xlUp).Row Step 8
' De 5 à la dernière ligne déterminée en partant de quasiment la dernière
' et en remontant avec un pas de 8
If J > UBound(Tableau) Then J = 0
' Si j'ai dépassé la dernière valeur du tableau, je reviens à la première
Range("A" & I & ":A" & I + 6).Interior.ColorIndex = Tableau(J)
' Je colorie de la cellule Ai à la cellule Ai+6
J = J + 1
' Je passe à la couleur suivante
Next I
' Boucle
End Sub