VBA copier valeur dans tableau "structuré"!? et mettre ordre alphabétique

Boujour

Fichier joint (ce sera sans doute plus clair)

Merci d'avance

bonjour Nonno,

Sub Nonno()
     Set LO = Range("Tableau1").ListObject   'ce tableau structuré
     With Sheets("formulaire").Range("B7")   'nouveau nom
          If Len(.Value) > 0 Then
               LO.ListRows.Add.Range.Value = .Value     'ajouter nom en dessous le tableau
               LO.Range.Sort LO.Range.Cells(1), Header:=xlYes     'trier
          End If
     End With
End Sub

Merci BSaLV

Exactement ce que je voulais

Bonne soirée et merci encore