For i = 2 To derligne
With Feuil3.UsedRange.Columns(15) 'fichier vente, colonne code produit
Set cSomme = .Find(what:=Feuil4.Cells(i, 20).Text, After:=Feuil3.Cells(3, 15), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
'ou Feuil4.Cells(i, 20) est la feuille synthèse avec i ligne du produit en question
If Not cSomme Is Nothing Then
firstAddress = cSomme.Address
Do
sommeARS = sommeARS + cSomme.Offset(0, 17).Value
Set cSomme = .FindNext(cSomme)
Loop While Not cSomme Is Nothing And cSomme.Address <> firstAddress
End If
End With