Function MaSomme#(txt$)
Application.Volatile
Dim nf$, coul&, w As Worksheet, c As Range
nf = Application.Caller.Parent.Name
coul = Application.Caller.Interior.Color
For Each w In Worksheets
If w.Name <> nf Then
For Each c In w.UsedRange
If c.Row > 1 Then If c(0) = txt And IsNumeric(c) Then _
If c.Interior.Color = coul Then MaSomme = MaSomme + CDbl(c)
Next c
End If
Next w
End Function