Bonjour à tous les deux,
Ta solution est originale, ziopizza. De mon côté, comme Alex demandait une formule simple, j'ai supposé qu'il préférait une fonction définie par l'utilisateur.
Voici le code à placer dans un module :
Function Calcul_Plage(Plage As Range) As Variant
Dim Cellule As Range
Dim Somme As Variant
Somme = 0
For Each Cellule In Plage
With Cellule.Interior
If .ColorIndex = 8 Then 'à modifier en fonction de ta couleur
Somme = Somme + Cellule.Value
End If
End With
Next
Calcul_Plage = Somme
End Function
Si tu ne connais pas la valeur de la couleur, tu regardes bien le code de ziopizza et tu fais un mix !
Dans l'exemple donné, tu n'as qu'à taper dans la cellule que tu souhaites :
=Calcul_Plage(Plage sélectionnée)
Amitiés à tous les deux
Lionel