Bonsoir,
Effectivement. Une 'tite fonction personnalisée nous aurait réglé celà aux petits oignons. Mais notre ami Berylion est encore un peu en vacances visiblement...

ça doit donner quelque chose comme ça pour rouge et bleu.

Function CICRB(SearchArea As Object) As Long
Dim x&, o As Range
Application.Volatile True
For Each o In SearchArea
If o.Interior.ColorIndex = 3 or o.Interior.ColorIndex = 5 Then x = x + 1
Next o
CICRB = x
End Function

Et ça c'est pour le vert :

Function CICV(SearchArea As Object) As Long
Dim x&, o As Range
Application.Volatile True
For Each o In SearchArea
If o.Interior.ColorIndex = 4 Then x = x + 1
Next o
CICV = x
End Function

La seule chose c'est pour les couleurs il faut tester les couleurs de l'utilisateur, il y a des variantes. Faudrait voir un spécimen exact de son classeur. Pas une image, un vrai classeur, pour voir les couleurs qu'il utilise vraiment.

Malgré tout il faut signaler que Excel ne considère pas les changements de couleurs comme un changement c'est à dire que si vous changez simplement la couleur d'une cellule Excel ne recalcule pas il faut forcer le recalcul avec F9...

La démo ici
A+