Bonjour,
une fonction personnalisée à mettre dans un module standard :
Function sommeCoul(plage As Range, couleur As Range) As Double
Dim c As Range
For Each c In plage
If c.Interior.Color = couleur.Interior.Color Then sommeCoul = sommeCoul + c
Next c
End Function
Syntaxe :
=sommeCoul(AI7:AM11;Liste!$B$2)
AI7:AM11 : plage à sommer selon couleur
Liste!$B$2 : cellule de la couleur à sommer
eric