Sub Bouton1_QuandClic()
Dim i As Byte
Range('a3:g132').Interior.ColorIndex = xlNone
For i = 3 To 132 Step 4
Range(Cells(i, 1), Cells(i + 1, 5)).Interior.ColorIndex = 35 'vert
Range(Cells(i, 6), Cells(i + 1, 7)).Interior.ColorIndex = 40 'marron
Range(Cells(i + 2, 1), Cells(i + 3, 7)).Interior.ColorIndex = 2 'blanc
Next i
End Sub