vba excel - erreur 1004

Bonjour à tous,
Quelqu'un pourrait-il m'expliquer pourquoi excel m'affiche "l'erreur 1004 : erreur définie par l'application ou par l'objet " ?

Code:

---

1 2 3 4 5 6 7 8 9

Sub test()   ThisWorkbook.Worksheets("feuil1").Activate Range("D4").Select Set Plage_ZC = Range(Selection, Selection.End(x1down)).Offset(0, 1) Plage_ZC.Formula = "=A3"     End Sub

---

D'avance merci

XLDOWN et non X1DOWN

Sinon, sans les Select/Activate/Selection (déconseillés)

Code:

---

1 2 3 4 5 6

Sub test()   With ThisWorkbook.Worksheets("Feuil1") .Cells(.Rows.Count, "D").End(xlUp)(1, 2).Formula = "=A3" End With End Sub

---

Très bien merci !