Copie spéciale à la suite VBA

Bonjour,

Je souhaite copier une ligne dans un tableau d'un autre onglet sauf que :

1) Je ne souhaite que les valeurs (donc collage spécial valeur)

2) Je souhaite copier la ligne que j'aurais préalablement sélectionné avant de cliquer sur le bouton de copie

3) Je ne ferai pas qu'une copie je voudrai donc que chaque copie se renge les une en dessous des autres.

Je vous joins un petit fichier exemple avec le code de base d'un copier coller spécial mais qui ne laisse pas le choix et qui ne va pas à la suite..

Sub copie()

'

' copie Macro

'

'

Rows("9:9").Select

Selection.Copy

Sheets("Feuil2").Select

Range("A9").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Feuil1").Select

Application.CutCopyMode = False

End Sub

Merci d'avance pour votre aide !!! =)

Bonjour

A tester

Il suffit de sélectionner une cellule de la ligne à copier

Sub copie()
  Application.ScreenUpdating = False
  Rows(ActiveCell.Row).Copy
  Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
End Sub

Ouaiiii ça marche nickel merci beaucoup !!!

On passe en résolu !!!