Sub couleurs()
Dim cell As Range
Range(A1).Select
For i = 9 To 48
compteJ = 0
Range(Cells(i, 6), Cells(i, 11)).CurrentRegion.Select
Set MaZone = Range(Cells(i, 6), Cells(i, 11))
For Each cell In MaZone
If cell.Interior.ColorIndex = 6 Then compteJ = compteJ + 1
Next cell
Cells(i, 24).Select
ActiveCell = compteJ
Next i
End Sub