Copie incrémenter sur un tableau structuré

J'ai repris le classeur de DAVID17340 dont ThauTème lui a trouvé la solution qui recopie les lignes sélectionnées de plusieurs tableaux de la feuille 1 pour les insérer sur un autre tableau de la feuille 2. Je souhaite quand on lance la macro, non pas de vider le tableau cible et coller les lignes sélectionnées, mais de les coller à suite de ce tableau. Débutant en vba, je ne suis pas arrivé. Peux t'on m'aider à trouver la solution.

Je joins le fichier de David17340

Merci

Bonjour

Ci joint ma solution

A+ François

Bonjour,
Une autre proposition (pas regardé la proposition fanfan38 que je salue).
Cdlt.

Public Sub CopyData()
Dim ws As Worksheet, ws2 As Worksheet
Dim lo As ListObject
Dim tbl As Variant, arr() As Variant
Dim r As Range
Dim rw As Long, k As Long

    Set ws = Worksheets("Data"): Set ws2 = Worksheets("Synthese")

    For Each lo In ws.ListObjects
        If lo.InsertRowRange Is Nothing Then
            tbl = Range(lo).Value
            For rw = 1 To UBound(tbl)
                If tbl(rw, 1) = "x" Then
                    ReDim Preserve arr(2, k + 1)
                    arr(0, k) = tbl(rw, 2)
                    arr(1, k) = tbl(rw, 3)
                    k = k + 1
                End If
            Next rw
        End If
    Next lo

    If k > 0 Then
        Set lo = ws2.Range("synthese").ListObject
        With lo
            If .InsertRowRange Is Nothing Then
                Set r = .HeaderRowRange.Cells(1).Offset(.ListRows.Count + 1)
            Else
                Set r = .InsertRowRange.Cells(1)
            End If
        End With
        r.Resize(k, 2).Value = Application.Transpose(arr)
    End If

End Sub

Bonjour Fanfan38,

Merci pour ta rapidité, cela fonctionne, je vais l'insérer sur le classeur en construction et je reviendrai sur le site au cas où je bloque.

Merci Jean-Eric, je testerai également ta proposition

Bonjour Miguel Ange

Ton fichier que tu as posté à l'heure 14:02; je l'ai testé, chez moi il marche tres bien!

Oui Il fonctionne bien mais à chaque fois qu'on lance la macro, elle le vide et rajoute les lignes sélectionnées. Elle ne s'ajoutent pas à la suite