Macro pour remplissage pour toutes les ligne d'une feuille

Bonjour le forum,

J'ai une petite requête a vous soumettre voila je voudrais remplir ( couleur de fond ) une ligne sur deux (ex: remplissage tableau ) dans toutes les lignes d'une feuille.

(Je ne peux pas inserer de tableau , car trop de formules excel , sql a changer, 15 classeurs ,10 feuilles par classeurs , 2000 lignes ...)

 Sub couleurs()
Range("A1:f2").Interior.ColorIndex = 3
Range("A2:f2").Interior.ColorIndex = 2
End Sub

Pouvez vous m'aider à trouver une boucle ?? Je n'arrive pas à la formuler

Merci pour vos bonnes idees

Bonjour

Avec une macro

Sub couleurs()
Dim J As Long

  For J = 1 To 50 Step 2
    Range("A" & J).Resize(1, 6).Interior.ColorIndex = 3
    Range("A" & J+ 1).Resize(1, 6).Interior.ColorIndex = 2
  Next J
End Sub

Avec une MEFC

Tu sélectionnes ta zone (A1::F50) --> Mise En forme Conditionnelle

Nouvelle règle

Utiliser une formule

=EST.PAIR(LIGNE())

Tu choisis le format

Tu valides

Et c'est fini

Tu peux utiliser une autre règle avec EST.IMPAIR(LIGNE))

Merci beaucoup BENZAI