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