En fait pour cela tu peux améliorer la fonction Couleur et définir une fonction NBCouleur qui compte dans une plage donnée le nombre de cellules d’une couleur choisie:
Function NBCouleur(ByRef Plage As Range, Couleur As Long) As Long
Dim c As Range
Dim nb As Long
nb = 0
For Each c In Plage
If c.Interior.ColorIndex = Couleur Then
nb = nb + 1
End If
Next c
NBCouleur = nb
End Function
Tu peux du coup combiner les 2 formules en une seule
nbcouleur.xlsm (14,3 Ko)