Sub comptercouleurs()
Dim CompterCellules As Integer
Dim Cellules As Range
'compter rouge
For Each Cellules In Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").Range("A65000").End(xlUp).Row)
If Cellules.Interior.ColorIndex = 3 Then CompterCellules = CompterCellules + 1
Next Cellules
Sheets("feuil2").Range("c2") = CompterCellules
End Sub