Ajout automatique d'une feuille avec un nom prédéfini

Bonjour,

Je souhaiterais lier à un bouton une macro qui permette d'ajouter une feuille avec un format prédéfini mais également un nom prédéfini. J'ai le code suivant pour gérer le format :

Sub ajout_feuille()
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & "Modèle_BDD.xlt"
End Sub

Mais je n'arrive pas à le compléter pour faire en sorte que la feuille soit nommée sur le modèle Feuili.

Merci par avance pour votre aide,

Marie