Compter cellules de couleurs

Bonjour,

fonction personnalisée avec 2 paramètres :
plage : plage à prendre en compte
couleur : cellule où récupérer la couleur à compter

Function cellCouleurVide(plage As Range, couleur As Range)
    Dim pl As Range, c As Range, coul As Long
    Application.Volatile
    Set pl = Intersect(plage, Application.Caller.Worksheet.UsedRange)
    If Not pl Is Nothing Then
        coul = couleur.Interior.ColorIndex
        For Each c In pl
            If c = "" And c.Interior.ColorIndex = coul Then cellCouleurVide = cellCouleurVide + 1
        Next c
    End If
End Function

Faire F9 pour rafraichir si les couleurs changent.
Si c'est pour qq milliers de lignes tu dis si c'est trop lent, on fera autrement.
Eviter d'avoir plusieurs classeurs d'ouverts, ça donne parfois des surprises avec les fonctions personnalisées.
eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Bonjour.

Faire Trier par couleur : le nombre de cellules (avec des données) remplies de cette couleur s'affiche dans la barre d'état.

Bonjour

J'ai trouvé en vba comment les compter ,mais il me faut seulement compter
les cellules vides.
Si vous avez une solution je suis preneur.
Merci pour votre aide
Cordialement

Bonjour eric

Merci pour ta réponse
J'ai un souci n’étant pas trés fort en vba je n'arrive pas a mettre ton code
en place afin qu'il fonctionne normalement.
Crdlt