Erreur code proposé dans sujet déjà traité

Bonjour à tous et toutes

Testant un nouveau programme, je reviens demander une aide charitable.

Le sujet ayant déjà été traité, je me suis servi d'un code proposé par Amadeus mais je n'arrive pas à le faire fonctionner correctement.

Le but est d'afficher dans la feuille 'Indicateurs" le nombre d'écart de la feuille "Tableau" en fonction de la couleur des écarts.

Les couleurs dépendent d'une mise en forme conditionnelle.

J'ai copié le code suivant dans le Général de la feuille "Indicateurs"

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur) As Long

Application.Volatile True

Dim wCell As Range

For Each wCell In Plage

If wCell.Interior.ColorIndex = NumeroDeCouleur Then

SommeSiCouleur = SommeSiCouleur + wCell.Value

End If

Next

End Function

Puis =NB.SI(Tableau!$B$6:$B$11;43) dans ma cellule pour obtenir le résultat.

J'ai également essayé avec une autre formule proposé =Nb_Couleur(Tableau!B6:B1000;46).

Quelqu'un voit-il d'où provient l'erreur?

Merci par avance.

Pour plus de facilité, un fichier joint modifiable à souhait

solution trouvée sans macro

Formule a entrer dans la cellule où l'on désire que les resultats soient affichés.

=SOMMEPROD((Tableau!B:B>2)*(Tableau!L:L<=4))

Tenir compte des mêmes mises en conditions que pour l'affichage couleur.