Modifier par code le nom VBA d'une Feuille de Calcul (pas le nom de l'onglet)

Placer ce code dans une procédure ou une fonction dans l'éditeur VBA :

NomActuelVba= ActiveSheet.CodeName
ActiveWorkbook.VBProject.VBComponents(NomActuelVba).Name = "NomFeuilleCoteVBA"

A ne pas confondre avec ce code qui modifie le nom de l'onglet coté Excel :

ActiveSheet.Name = "NomFeuille"