Function SOMMSI(Plage As Range, Cel1 As Range, Cel2 As Range)
Application.Volatile
For Each Cel In Plage
If Cel Like Cel1 & "*" Or Cel Like "*" & Cel2 Then
TOTAL = TOTAL + Cel.Offset(0, 2)
Q = Q + Cel.Offset(0, 1)
End If
Next
SOMMSI = TOTAL / Q
End Function