Dim Var1, Var2
Var1 = [D16]
Var2 = [C17]
For x = ld To lf
For y = 4 To 5
'Je souhaite que C17 et D16 soient des variables et non une cellule
Cells(x, y).FormulaLocal = "=SOMMEPROD((Données!$C$3:$C$6=""" & Var2 & """)*(Données!$D$2:$G$2=""" & Var1 & """)*(Données!$D$3:$G$6))"
'Je ne veux pas avoir la formule dans les cases mais bel et bien la valeur d'où l'utilisation de la ligne ci-dessous
'Cells(x, y) = Cells(x, y).Value
'Cells(x, y).FormulaLocal = "=WorksheetFunction.SumProduct((C3:C6=C17) * (D2:G2=D16) * (D3:G6)"
Next y
Next x