Sub tri()
Dim Produit As String
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Produit = Sheets("Achat Cuisine").Cells(i, 1)
With Sheets("Inventaire cuisine")
Set Pdt = .Range("A:A").Find(Produit, LookIn:=xlValues, lookat:=xlWhole)
If Pdt Is Nothing Then Exit Sub
.Cells(Pdt.Row, 2).Value = .Cells(Pdt.Row, 2).Value + Sheets("Achat cuisine").Cells(i, 2).Value
End With
Next
End Sub