Voici le code
Sub Cal_Stock_Reception()
Dim i As Integer
Dim j As Integer
Dim DLT As Long
Dim Total As Integer
DLT = Sheets("Article").Range("Q1000000").End(xlUp).Row
For i = 21 To DLT
Total = Application.WorksheetFunction.SumIf(Sheets("Reception").Range("q21:q100"), _
Sheets("Article").Cells(i, 17), Sheets("Reception").Range("v21:v100"))
Next i
Sheets("Article").Cells(i, 22) = Total + Sheets("Article").Cells(i, 22)
End Sub