Function Additionner(Criteres As Range, ListeRef As Range, ListeSomme As Range)
Additionner = 0
For Each c In Criteres
If Not IsError(Application.Match(c, ListeRef, 0)) Then
Additionner = Additionner + ListeSomme.Cells(Application.Match(c, ListeRef, 0), 1)
End If
Next
End Function