Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim n As Integer 'déclare la variable n (Nombre)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1" (à adapter à ton cas)
Set pl = .Range("A1:A" & .Range("A65536").End(xlUp).Row) 'définit la plage pl (à adapter)
End With 'fin de la prise en compte de l'onglet "Feuil1"
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
'si la cellule est colorée de rouge, incrémente le nombre n
If cel.Interior.ColorIndex = 3 Then n = n + 1
Next cel 'prochaine cellule de la boucle
MsgBox n 'message affichant le nombre n
End Sub