Somme texte rouge avec 3 criteres

Bonjour,

J'ai besoin d'un petit coup de main sur un probleme exel. J'ai dans tableau excel des cellules avec une validation en liste (J pour jour, N pour nuit et G pour garde 24heures)
La couleur du texte pour les trois critères est rouge, mais ils peuvent être noir ou d'une autres couleurs. la sélection de la couleur est manuelle.
A la fin de mon tableau, je dois comptabiliser sur des lignes des lignes différentes le nombre de "J" rouge, de "N" Rouge et de "G" rouge.
Pour compter le nombre de cellule rouge j'utilise une macro de type:

Function ColorCountIf(ZoneDeRecherche As Object, Modele As Range) As Integer

Application.Volatile True
ColorCountIf = 0
MaCoul = Modele.Font.ColorIndex
For Each cell In ZoneDeRecherche
If cell.Font.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell

End Function

Et dans ma cellule j'utilise la formule suivante :
=ColorCountIf(D93:D149;C222)

Le probleme, est qu'elle ne fait la difference entre le "J", "N"est le "G"
En gros, le voudrez savoir le nombre de "J" de "N" et de "G" dans ma plage de calcul

Merci d'avance