Copier des cellules et coller dans une autre feuille erreur 1004

Bonjour,

Dans la feuil "tableau", je souhaite mettre les informations comme le nom, le prénom, l'adresse
puis j'appuie sur le bouton dans la feuille départ (ex badge) et cela me renvoie les informations nom, prénom sur la feuil "badge"

Idem pour la feuil "bac"

1) je souhaite descendre sur la colonne A jusqu'à la 1ère cellule vide
2) Copier des cellules non continues
3) puis les coller sur un autre classeur

Mais cela me met "erreur 1004 - Pouvez vous m'indiquer l'erreur dans mon code merci d'avance

Sub variable4()

'Pour sélectionner la première cellule vide de la première colonne
Sheets("tableau").Cells(Rows.Count, 1).End(xlUp)(2).Select
'copy la cellule 2 à droite de la cellule active
Sheets("tableau").Range(ActiveCell(1, 2), ActiveCell(1, 2)).Copy _
Sheets("badge").Range("D16")
Sheets("tableau").Range(ActiveCell(1, 3), ActiveCell(1, 3)).Copy _
Sheets("badge").Range("f16")
Sheets("tableau").Range(ActiveCell(1, 9), ActiveCell(1, 9)).Copy _
Sheets("badge").Range("B7")
Sheets("tableau").Range(ActiveCell(1, 7), ActiveCell(1, 8)).Copy _
Sheets("badge").Range("C9")
End Sub