Copier la ligne selectionnée et la coller en fin de tableau

Bonjour,

Je voudrais pouvoir sélectionner une ligne dans mon tableau puis appuyer sur un "bouton" pour coller les valeurs de cette ligne en fin de tableau.

J'ai pour l'instant réussi à copier la dernière ligne , appuyer sur mon bouton et la coller en fin de tableau :

Range("A65000").End(xlUp).Offset(0).Select '
    Selection.Copy

Range("A65000").End(xlUp).Offset(1).Select 

ActiveCell.Value = Now 

et çà pour chaque colonne de mon tableau , me permettant de récupérer toute la ligne ...

Merci de votre aide

Bonjour

Proposition ci jointe

Cordialement

FINDRH

bonjour,

proposition de code

bonjour findrh

Sub test()
    If Selection.Rows.Count = 1 Then
        Selection.EntireRow.Copy
        Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
        ActiveSheet.Paste
        ActiveCell = Now
        Application.CutCopyMode = False
    End If
End Sub

Merci beaucoup çà marche super :p

Mais pour essayer de comprendre votre code , pouvez vous m'éclairer sur comment vous avez procéder ?

Merci encore

Bonjour Dawatts,et bienvenue sur le forum

Une macro à tester

Amicalement

Pierrot