Sub coloriage()
Application.ScreenUpdating = False
Couleur = 6
For i = 16 To [B65000].End(xlUp).Row
If Cells(i, 2) <> Cells(i - 1, 2) Then Couleur = IIf(Couleur = 36, 6, 36)
Range(Cells(i, 2), Cells(i, 7)).Interior.ColorIndex = Couleur
Cells(i, 9).Interior.ColorIndex = Couleur
Range(Cells(i, 11), Cells(i, 13)).Interior.ColorIndex = Couleur
Next i
Application.ScreenUpdating = True
End Sub