voici une fonction postée dans ce forum, que tu peux insérer dans un module standard et ensuite utiliser dans uen feuille de calcul
Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Dim Cel As Range
For Each Cel In Plage.Cells
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
exemple d'utilisatino
=couleurs(A2:B17;6) & " cellules " &A3
cherche dans le forum pour trouver le fil correspondant pour plus d'infos