Ajout d'un ligne pour une plage nommée ensuite trier cette plage nommée

Bonjour,
Je ne sais pas comment je peux ajouter une ligne à la fin de ma plage nommée et ensuite trier celle-ci en VBA.
Attention, la plage nommée contient uniquement les données pas le titre et n'est pas non plus un tableau.
Le tri serait sur la première colonne.

Voici un fichier exemple.
Merci de votre aide

bonjour DHARDY,

vous pouvez mettre ceci dans un module normal

Sub Dhardy()
     s = "PlageNom"                          'le nom de la plage
     With Range(s)                           'la plage
          With .Resize(.Rows.Count + 1)      'plage + 1 ligne
               .Sort .Range("A1"), xlAscending, Header:=xlNo     'trier avec la colonne A et sans title
               .Name = s                     'sauvegarder nouvelles dimensions de la plage
          End With
     End With
End Sub

Si c'est pour un module d'une feuille, il faut encore ajouter la feuille " With Sheets("Base").Range(s)"

Merci BsAlv