Copier une plage de cellules d'une feuille à une autre

Bonjour,

Je cherche à copier une plage de données d'une feuil2 à une feuil1 d'un classeur, sachant que la plage est de longueur(lignes) variable.
je veux aussi que les données collées dans la feuil1 se mettent les unes à la suite des autres.
J'utilise le code suivant, mais il ne marche pas et je ne comprends pas pourquoi?

Sub copier()

Worksheets("Feuil2").Range("a2").Select
Sheets("Feuil2").Range("a2", ActiveCell.End(xlDown).End(xlToRight)).Copy _
Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub