Couper - coller une ligne dans une autre feuille

Bonsoir,

Je suis débutant en VBA

Je suis à la recherche d'une macro qui me permettrait de déplacer une ligne sélectionnée et en cliquant sur un bouton, déplacer cette ligne dans une autre feuille identique.

J'aimerai déplacer la ligne de ma première feuille en bas de ma deuxième feuille (ou dans le tableau, j'ai plusieurs filtres pour chercher l'information), pas besoin d'afficher un message, juste une manière plus rapide de couper coller une ligne dans une autre feuille.

Merci d'avance à ceux qui prendront le temps de me lire,

Cordialement,

Ci-dessous un version simplifié de mon tableau : (dans le tableau plusieurs mises en forme conditionnelles sont en place)

Bonsoir,

Un essai, à mettre dans un module standard

Sub cut_paste()
dl = Sheets("Habilitation OLD").Range("A" & Rows.Count).End(xlUp).Row + 1
If Not ActiveCell.ListObject Is Nothing Then
    Set lo = ActiveCell.ListObject
    lRow = ActiveCell.Row - lo.HeaderRowRange.Row
    Set lr = lo.ListRows(lRow)
    lr.Range.Cut (Sheets("Habilitation OLD").Range("A" & dl))
End If
End Sub

Bonjour,

Merci beaucoup, ça fonctionne !

Cela se range à la dernière ligne de mon tableau donc parfait, il me reste juste à l'adapter a mon tableau.

Merci pour votre temps