salut
Sub test()
Dim c
For Each c In Worksheets("Feuil2").Range("d4:zz4")
c.Formula = "=$A$4+$A$10" 'Feuil2'!$A441)"
Next c
'et quand je l'afecte '"=SOMME.SI.ENS('Feuil1'!$D$3:$D$423; 'Feuil1'!$B$3:$B$423; 'Feuil1'!$B$3; 'Feuil1'!$A$3:$A$423; 'Feuil2'!$A441)" 'une ereur se produit
'alors vérifier bien ta formule
End Sub