Salut !
Normalement t'as la fonction "Interior" qui renvoie un objet de l'intérieur de la cellule, y comprit la couleur.
Ex : maCouleur = ActiveCell.Interior.Color
https://docs.microsoft.com/en-us/office/vba/api/excel.interior%28object%29
Après il te suffira de faire une boucle For pour parcourir toute ta ligne et compter les occurences, donc en gros :
For i = 1 to X
If(Cells(i, 1).Interior.Color = maCouleur) Then
-----------------------------------
End If
Next i
En espérant que ça t'aide