Function SommeSet(Plage As Range, VFind As String)
Dim Cel As Range, TotCel As Single
TotCel = 0
' Pour chaque ligne de la plage
For Each Cel In Plage
If Cel.Value = VFind Then
' La valeur est normalement dans la 4ème colonne, donc décalage de 3
TotCel = TotCel + Cel.Offset(0, 3)
End If
Next Cel
SommeSet = TotCel
End Function