Bonjour à vous deux. Proposition VBA :
Option Explicit
Sub Macro1()
Dim i As Integer, j As Integer, nL As Long, compt As Long
nL = Cells(Rows.Count, "K").End(xlUp).Row
For i = 3 To 7
compt = 0
For j = 7 To nL
If Cells(j, 10) = "Article " & Trim(Str(i - 2)) Then compt = compt + Cells(j, 11)
Next j
Cells(2, i) = compt
Next i
End Sub
Si les articles ont un nom au lieu de Article 1 à n :