Sub Qté_Dés_Lot_Date()
Dim WshStockCmdes As Worksheet: Dim LoS As ListObject
Dim Nb_Col As Long, Nb_Lgn As Long
Set WshStockCmdes = Feuil11: Set LoS = WshStockCmdes.ListObjects(1)
Nb_Lgn = LoS.ListRows.Count: If Nb_Lgn < 1 Then Exit Sub
Nb_Col = LoS.ListColumns.Count - 1: If Nb_Col < 1 Then Exit Sub
Application.ScreenUpdating = False
With LoS.DataBodyRange.Offset(0, 1).Resize(, Nb_Col)
.FormulaR1C1 = "=SUMPRODUCT((Tb_CMDES[Qté])*((Tb_CMDES[Désignation]&CHAR(10)&Tb_CMDES[Lot])=(Tb_STOCK_CMDES[#Headers] C))*(Tb_CMDES[Date livr.]=TEXT(Tb_STOCK_CMDES[[#This Row],[Date]],""jj.mm.aaaa"")))"
.Value = .Value
.Replace What:="0", Replacement:="", LookAt:=xlWhole
End With
Application.ScreenUpdating = True
End Sub