XL 2016 Problème avec VLOOKUP

Bonjour

je cherche a calculer une somme en utilisant la fonction VLOOKUP

c a d : je cherche dans ma 1ere colonne jusq a trouvé PB2 et sommer sur colonne 7.

j'utilise l code suivant mais il somme que sur la 1ére ligne trouvée :

Private Sub CommandButton1_Click()
Dim s As Single
'DerL = Range("A" & Rows.Count).End(xlUp).Row
DerL = Feuil4.Range("A" & Rows.Count).End(xlUp).Row
s = 0
For i = 3 To DerL
If Feuil4.Cells(i, 1) = "Pb2" Then
s = s + Application.VLookup(Feuil4.Range("A" & i), Feuil4.Range("A:W"), 7, False)
End If
Next i
MsgBox s
End Sub