Onglet renommé

Re-re-bonjour

Suite des épisodes précédents, mon classeur est presque fini.

L'objet de ma demande est la suivante :

Lorsque je clique sur un bouton, j'aimerais créé un nouvel onglet renommé suivant la valeur d'une cellule.

Merci

Bonsoir

Cette macro associée à un bouton sur la page "Feuil1"

Le nom de la nouvelle page en A1

Sub AjouteFeuille()
  Sheets.Add after:=Sheets(Sheets.Count)
  ActiveSheet.Name = Sheets("Feuil1").Range("A1")
End Sub