Sub boucle_mise_en_gras1sur2()
Dim Ligne_Debut As Long
Ligne_Debut = 2
While Cells(Ligne_Debut, 1) <> ""
If Ligne_Debut Mod 2 = 0 Then
Range(Cells(Ligne_Debut, 1), Cells(Ligne_Debut, 5)).Interior.Color = RGB(200, 200, 0)
Else
Range(Cells(Ligne_Debut, 1), Cells(Ligne_Debut, 5)).Interior.Color = RGB(100, 0, 0)
End If
Ligne_Debut = Ligne_Debut + 1
Wend
End Sub