Sub sommecouleurs()


Dim plage As Range
Set plage = Application.InputBox(prompt:=" choisi la plage que tu veux masque", Type:=8)
a = b = 0

For Each c In plage.Cells
    If IsNumeric(c) Then
        If c.font.Color = vbRed Then
        a = a + c.Value
        End If
   
        If c.Interior.ColorIndex = 5 Then
        b = b + c.Value
        End If
    End If
Next c

Application.StatusBar = " somme de rouge = " & a & "  et somme de bleu " & b

End Sub

    Source: geocities.com/manuhoro