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

    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)