Salut,

Voilà une petite macro :

sub cell_text_vert ()
Dim plage as Range
Dim cel as Range
Dim n as Long

'On travaille sur la feuille 1
Set plage = Application.Sheets(1).Range("A1:B5") 'on cherche dans la plage A1:B5 par exemple
n=0
For Each cel In plage
If cel.Font.ColorIndex = 4 Then 'la couleur verte
n = n + 1 'compteur
End If
Next
MsgBox "Il y a " & n & " cellules avec le texte écrit en vert."
End Sub

Bonsoir Vincent,
Juste en passant: si votre texte est écrit en vert je suppose qu'il rempli une condition ( si égal Oui --> vert, si Non reste noir)
De ce fait vous utilisez la fonction NB.SI(B1:B12;"oui")
ou --> B1:B12 -->> la plage qui contient votre texte
et --> "oui" est la condition.
Bonne chance. Amicales salutations
Jean-Pierre