VBA insertion d'une ligne en haut de tableau

Bonjour le Forum

Copier coller des cellules en haut de tableau

Je joint un fichier

Merci d'avance

Bonjour,
Une proposition.
Cdlt.

Public Sub CopyData()
Dim rng As Range, lo As ListObject, lr As ListRow
    Set rng = Worksheets("Feuil2").Range("A2:A18")
    Set lo = Range("tableau1").ListObject
    With lo
        Set lr = .ListRows.Add(Position:=1)
        lr.Range.Cells(1).Resize(1, 17).Value = Application.Transpose(rng.Value)
    End With
End Sub

Merci jean Eric

Bonne journée

Cordialement

Nonno