Fonction NB.SI.COULEUR(range ; critère)

Bonjour,

J'ai une fonction VBA qui compte les cellules d'une couleur et qui fonctionne :

Function CountCcolor(range_data As Range, criteria As Range) As Long
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountCcolor = CountCcolor + 1
    End If
Next datax
End Function

Sauf que ma source "range_data" dispose de couleurs en mise en forme conditionnelle et que dans ce cas précis la fonction ne reconnaît pas la couleur. vu le volume de données (2773 lignes * 22 colonnes) ça m'embête.

Pouvez-vous m'aider à solutionner ce problème pour que la formule reconnaisse les couleurs qui ont été posées là par la mise en forme conditionnelle ?

Merci par avance pour votre aide.