XL 2010 Copier cellules a la suite

[Pensinf4204]

Bonjour ,
j'ai un code pour copier coller des cellules d'une feuille vers une autre la fin (ou suite)
ex: en feuille 1 j'ai des articles Colonne A (Pomme, Poire,Banane,mangue) et en feuille 2 Colonne A (Chou,Courgette,Carotte,Poireau,Laitue)
avec le code je peux prendre les Articles en feuille1 et les copier en feuille 2 à la suite
Seulement il me manque un quelque chose car la copie se fait mais le dernier articles disparait ici Laitue
Merci de toute l'aide que vous pourrez m'apporter
Range("A2", Range("A2").End(xlDown)).Select
Selection.Copy
'Worksheets("Fruits").Paste Destination:=Worksheets("Légumes").Cells(Rows.Count, 1).End(xlUp)

 

[Staple1600]

Bonsoir

Test OK chez moi

Sub test_ok()
Dim feuilleA As Worksheet, feuilleB As Worksheet
Set feuilleA = Worksheets("Fruits")
Set feuilleB = Worksheets("Légumes")
With feuilleA
.Range("A2", .Range("A2").End(xlDown)).Copy feuilleB.Cells(Rows.Count, 1).End(xlUp)(2)
End With
End Sub

 

[Pensinf4204]

Merci Staple1600 sa fonction nickel

 

[Staple1600]

Re

De rien
C'est Excel et son VBA qui ont tout fait.