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 : Sélectionner tout - Visualiser dans une fenêtre à part
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