On trouve sur le net des milliers (?) de réponses à ce genre de souci.
Une solution :
Dans un module standard copier cette fonction:
Function SommeJaune(Plage As Range)
Dim Cel As Range
For Each Cel In Plage
If Cel.Interior.Color = 65535 Then Total = Total + Cel.Value
Next
SommeJaune = Total
End Function
et dans la cellule E21 :
=SommeJaune(E6:E19)
ou bien insertion fonction comme pour une fonction classique puis sélectionner la plage