XL 2013 Couper-coller ligne d'un tableau structuré dans un autre tableau

Private Sub UserForm_Initialize() 'Formulaire d'archivage d'un dossier
    ComboBox1.List = [Tab_Planning[Dossier]].Value
End Sub

Private Sub CommandButton1_Click() 'Pour le bouton Valider
    Dim lig&, c As Range
    lig = ComboBox1.ListIndex + 1
    If lig = 0 Then ComboBox1.DropDown: Exit Sub
   
    With [Tab_Archivage].Columns(1) 'recherche la 1ère cellule vide en 1ère colonne
        Set c = .Find("", , xlValues, , xlByColumns)
        If c Is Nothing Then Set c = .Cells(.Rows.Count + 1)
    End With
   
    With [Tab_Planning]
        c.Resize(, .Columns.Count) = .Rows(lig).Value 'copie les valeurs
        c = Date 'date de l'archivage
        .Rows(lig).Delete xlUp 'supprime la ligne source
    End With
   
    MsgBox "Dossier archivé avec succès !", , "Archivage" 'confirmation
    Unload Me
End Sub

Private Sub CommandButton2_Click() 'Pour le bouton Annuler
    Unload Me
End Sub

Private Sub UserForm_Initialize() 'Formulaire d'archivage d'un dossier
    On Error Resume Next 'si aucune SpecialCell
    With [Tab_Planning[Dossier]]
        Intersect(.SpecialCells(xlCellTypeBlanks).EntireRow, [Tab_Planning]).Delete xlUp 'supprime les lignes vides
        ComboBox1.List = .Value
    End With
End Sub

Private Sub CommandButton1_Click() 'bouton Archiver
Dim c As Range, ge
With [Tableau8] 'tableau structuré
    Set c = .Columns(1).Find("", , xlValues)
    If c Is Nothing Then Set c = .Cells(.Rows.Count + 1, 1)
    c.Resize(, 19) = Application.Transpose([J10:J28].Value2)
    c(1, 22) = [G29]
    .Columns(22).EntireColumn.AutoFit 'ajustement largeur
    .Parent.Activate 'facultatif
End With
[J10:J12,J14:J25,J27,G29,G34:G38,M34:M41] = "" 'RAZ
End Sub