Hello,
Jette un coup d'oeil au tuto de Stéphane de excel-competence :
http://excel-competence.over-blog.com/article-additionner-de-valeurs-selon-la-couleur-de-remplissage-des-cellules-49156207.html
Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'*********************************************************
' Effectuer la somme des cellules en couleur *
'*********************************************************
Dim Cel As Range
Dim Som As Double
If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlErrValue)
Exit Function
End If
For Each Cel In PlageSomme
If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel
Next
SOMME_SI_COULEUR = Som
End Function
Ou celui du tuto de Xavier Dupré, pour ne compter que le nombre de cellules de couleurs, excellent aussi :
http://www.xavierdupre.fr/blog/2013-01-26_nojs.html