XL 2019 Couper d'un tableau structuré et coller sur un autre tableau

[fanfan38]

Bonjour
Je cherche à copier et effacer des données d'un tableau structuré vers un autre tableau structuré à l'aide d'une macro
Dans l'exemple ci joint les commandes n°6 les mettre sur la feuille Vendu et les enlever de la feuille commande
Merci de votre aide
A+ François

 

[M12]

Bonjour,
Un test avec clic droit sur la ligne à transposer

 

[fanfan38]

Bonjour et merci M12 pour ta proposition
Mais celle ci ne correspond pas à ce que je recherchai
je me suis dépatouillé avec la macro ci dessous

    Application.Goto Reference:="TCommandes"
    Selection.AutoFilter
    ActiveSheet.ListObjects("TCommandes").Range.AutoFilter Field:=2, Criteria1:=Me.Textnum.Value
    dl = Sheets("Commandes").Range("A" & Rows.Count).End(xlUp).Row
    lig = Sheets("Vendu").Range("A" & Rows.Count).End(xlUp).Row + 1
    Rows("2:" & dl).SpecialCells(xlCellTypeVisible).Copy Sheets("Vendu").Range("A" & lig)
    Rows("2:" & dl).SpecialCells(xlCellTypeVisible).Delete
    Application.Goto Reference:="TCommandes"
    Selection.EntireColumn.AutoFit
    Sheets("Commandes").ShowAllData
    dl = Sheets("Commandes").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Commandes").Range("A" & dl).Select
    lig = Sheets("Vendu").Range("A" & Rows.Count).End(xlUp).Row
    Set loTable = Sheets("Vendu").ListObjects("TVendu")
    loTable.Resize loTable.Range.Resize(lig, 5)

Encore merci
A+ François