Sub Remplissage_alterné() 'remplissage alterné jaune/vert des lignes sélectionnées
Dim MyCells As Range, MyRow, Cellule As Variant, Début As Date, Fin As Date, _
Madurée As Date
Début = Now
Set MyCells = Selection
'Set mycells = Application.InputBox(prompt:='Sélectionnez la plage de cellules.', _
'Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
MyCells.Interior.ColorIndex = 36 'couleur de remplissage jaune
MyCells.Select
'remplissage alterné
For Each Cellule In MyCells
MyRow = Cellule.Row Mod 2 'test de la parité, on obtient 0 quand le n° de ligne
'est paire
If MyRow = 0 Then 'si le n° de ligne est paire
Cellule.Interior.ColorIndex = 35 'couleur de remplissage vert
End If
Next
End Sub