Bonsoir,
une solution via une fonction personnalisée (ne fonctionne pas si la couleur de la cellule est le résultat d' une mise en forme conditionnelle !)
Function sommecouleur(plage As Range, ref As Range)
application.volatile
ric = ref.Interior.Color
For Each c In plage
If c.Interior.Color = ric Then s = s + c
Next
sommecouleur = s
End Function
à utiliser
=sommecouleur(plage;ref)
où
plage est une sélection de cellules parmi lesquelles il faut additionner celles qui ont la même couleur que la cellule indiquée en ref.
exemple
=sommecouleur(A1:A100;D2)
edit application.volatile ajouté dans le code comme suggéré par Eriiiic