Changer de colonne à chaque Macro

Code:

---

1 2 3 4 5 6 7 8

Sub Archive()   Dim MaColonne As Integer   MaColonne = Cells(77, Columns.Count).End(xlLeft) Range("F6:F13").Copy Destination:=Cells(77, MaColonne)   End Sub

---

Cela ne marche toujours pas... "erreur d'exécution '1004' erreur définie par l'application ou par l'objet"
Peut être est ce que je fais mal les choses de mon coté mais comment le savoir?
Merci