Colorer rangées fichier xlsx

Y a t-il un moyen de colorer les rangées d'un fichier excel...à la manière de et ce jusqu'à la fin du document

Code:

---

1 2 3 4 5 6 7

objXL.Range("A3:E3").Select objXL.Selection.Interior.ColorIndex = 44 objXL.Range("A4:E4").Select objXL.Selection.Interior.ColorIndex = 45 objXL.Range("A5:E5").Select objXL.Selection.Interior.ColorIndex = 44 ...ainsi de suite

---

merci

Je me répond :P

Code:

---

1 2 3 4

objXL.Range("A:E").Select objXL.Selection.FormatConditions.Add(2), , "=MOD(ROW(),2)" objXL.Selection.FormatConditions(1).Interior.ColorIndex = 44 objXL.Selection.Interior.ColorIndex = 45

---

merci moi même