Colorier une ligne sur 2 avec VBA

J'ai besoin dans une plage sélectionnée de colorier une ligne sur deux.

Utilise cette macro:

sub LigneSurDeux()
Dim MaPlage As Range
Set MaPlage = Application.InputBox("Sélectionner la plage sans les titres", "Mise en forme tableau", , , , , , 8)
L = ActiveCell.Row
C = ActiveCell.Column
Set mc = ActiveSheet.Cells(L, C)
MyVal = mc.Address(RowAbsolute:=False, columnabsolute:=False)
MaPlage.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=MOD(LIGNE(" & MyVal & ");2)"
Selection.FormatConditions(1).Interior.ColorIndex = 34
ActiveCell.Select
end sub
Auteur(s) : 

Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 7 pages modifiées.