Set mycells = Application.InputBox(prompt:='Sélectionnez la plage de cellules.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
For Each cellule In mycells
myrow = mycells.Row Mod 2
If myrow = 0 Then
Selection.Interior.ColorIndex = 15
End If
Next