Sub Pjanvier1()
Dim Cel As Range, i As Integer, n As Byte
For i = 1 To 94
n = 0
For Each Cel In Feuil4.Range([COLOR="Red"]Feuil4[/COLOR].Cells(i, 2), [COLOR="Red"]Feuil4[/COLOR].Cells(i, 63))
If Cel.Interior.ColorIndex = 3 Then n = n + 1
Next
Feuil5.Cells(i, 3) = n
Next
End Sub