VBA copier coller vers tableau structuré

Bonjour le Forum

fichier joint avec plus de précisions

Merci d'avance

Nonno

Bonjour,

Essaie :

Sub test()
  Dim Tbl As ListObject
  Set Tbl = Sheets("Source").ListObjects(1)
  With Tbl.ListRows
    .Add .Count
    Tbl.ListRows(.Count).Range(1) = Sheets("bon").Range("M7")
  End With
  Tbl.Sort.SortFields.Clear
  Tbl.Sort.SortFields. _
    Add2 Key:=Range("Tableau1[[#All],[CHANTIERS]]"), SortOn:=xlSortOnValues, _
    Order:=xlAscending, DataOption:=xlSortTextAsNumbers
  With Tbl.Sort
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
  End With
End Sub

Daniel

Bonjour

Commence par renommer le tableau Chantiers (on ne garde pas les noms automatiques de type Tableau1) et

Sub Copie2Liste()
    With Range("Chantiers").ListObject
        Set y = .ListRows.Add
        y.Range.Cells(1, 1).Value = ThisWorkbook.Worksheets("Bon").Range("M7").Value
        .Sort.SortFields.Clear
        .Sort.SortFields.Add2 Key:=.ListColumns(1).Range, SortOn:=xlSortOnValues, Order:=xlAscending
        With .Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .Apply
        End With
    End With
End Sub

Bonsoir

Merci à vous deux pour vos propositions les deux fonctionnent parfaitement.

Je vais modifier le nom des mes tableaux!

Merci encore

Bonne soirée

Nonno