compter nombre de cellules écrites en rouge

Option Explicit
Sub Rouge_compter()
    Dim c As Range, compteur
    compteur = 0
    For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
        If c.Font.ColorIndex = 3 Then compteur = compteur + 1
    Next
    MsgBox compteur
End Sub

Function NBCouleur(Plage As Range, Cellule_de_référence As Range) As Integer

'Application.Volatile True
NBCouleur = 0
Macoul = Cellule_de_référence.Font.ColorIndex
For Each cellule In Plage
    If cellule.Interior.ColorIndex = Macoul Then NBCouleur = NBCouleur + 1
Next cellule
End Function

Option Explicit
Function NBCouleur(Plage As Range, Cellule_de_référence As Range) As Integer
    Dim cellule As Range, Macoul
    Application.Volatile
    NBCouleur = 0
    Macoul = Cellule_de_référence.Font.Color
    For Each cellule In Plage
        If cellule.Font.Color = Macoul Then NBCouleur = NBCouleur + 1
    Next cellule
End Function