Macro VBA pour afficher le nom de chaque Onglet

Bonjour,

Je cherche une fonction VBA pour afficher dans chaque Onglet du classeur le nom de l'onglet dans une cellule.

J'ai essayé la finction ci-dessous, ça fonctionne au départ mais si je modifie le nom de l'onglet, la formule n'est pas mise à jour !

Function Nom_Onglet() As String

Nom_Onglet = ActiveSheet.Name

End Function

Merci

Bonjour à tous !

Pour votre information, cette demande est multi-postée.....