XL 2013 faire un calcul avec CountCcolor

bonjour

un fichier exemple serait mieux (a mon avis)

Bonjour en gros ce qui me manque s 'est une boucle foreach pour récupérer grace a CountCcolor(C6:AO6; AN6) une valeur sur la meme colonne ligne 5 pour un calcul mais je ne sais pas la faire.
.

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

Je n'arrive pas a intégrer de dire ligne 5 colonne variable et récupérieur la valeur de cette cellule