Sub couleurs()
Dim cell As Range
For i = 9 To 48
compteJ = 0
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) = compteJ
If compteJ = 6 Then MsgBox 'Le Gagant est :' & Cells(i, 3): Exit For
Next i
End Sub