Copier et coller dans une autre feuille erreur 1004

Bonjour,

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 

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"

Bonsoir,

code à essayer

sub test()
Dim lg As Integer
 'Pour sélectionner la première cellule vide de la première colonne
 With Sheets("tableau")
    lg = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(lg, 2).Copy Sheets("badge").Range("D16")
    .Cells(lg, 4).Copy Sheets("badge").Range("f16")
    .Cells(lg, 12).Copy Sheets("badge").Range("B7")
    .Range(.Cells(lg, 18), .Cells(lg, 19)).Copy Sheets("badge").Range("C9")
End With
End Sub

Si ok, lors de ta réponse clique sur le v vert à coté du bouton EDITER pour clôturer le fil

Amicalement