Somme couleurs

Bonjour,

j'ai un tableau excel dans lequel je souhaite que les couleurs de fonds soit totalisées. les couleurs de fond ont été mise en forme manuellement.

j'ai bien utilisé un code mais ça ne fonctionne pas

Public Function SommeCouleurs(Plage As Range, CelCouleur As Range) As Long

Dim Couleur As Long

Dim mCell As Object

Couleur = CelCouleur.Interior.ColorIndex

For Each mCell In Plage

If mCell.Interior.ColorIndex = Couleur Then SommeCouleurs = SommeCouleurs + 1

Next

End Function

il me donne # en résultat

pourriez vous m'aider, merci

Bonjour

Erreur dans le nom

La fonction se nomme SommeCouleurs avec un s à la fin

Tu peux enlever la fonction qui est dans le module Feuille pré2012 (pas sa place) et en double avec celle du module standard