Renommer des onglets en fonction du nom de la feuille VBA

Bonjour le Forum

Comment faire pour renommer des onglets VBA en fonction du nom de la feuille VBA?

Je m'explique je voudrais au lancement d'un code vba que toutes les onglets de mon classeur soient renommés non pas en fonction de leurs noms d'onglet excel mais de leurs noms de feuilles dans le projet vba (ex: Feuil 1, Feuil 2...) sauf bien sur le "ThisWorkbook"

soit :

VBAProject (azerty.xlsm)

Feuil 1(XXX) = Feuil 1(AAA)

Feuil 2(YYY) = Feuil 1(BBB)

Feuil 3(ZZZ) = Feuil 1(CCC)

ThisWorkbook = ThisWorkbook

D'avance je vous remercie pour votre aide et votre disponibilité

Bonjour,

Un essai ...

Private Sub RenommerOnglets()
Dim Onglet As Worksheet

   For Each Onglet In ThisWorkbook.Worksheets
      Onglet.Name = Onglet.CodeName
   Next
End Sub

ric

Bonjour ric

Merci pour ton aide

Je me suis mal exprimé

ce que je voudrais faire c'est avec un code renommer tous les onglets d'un classeur mais avec le nom dans le code vba

soit Feuil 1 "AAAA", Feuil 2 "BBBB" et ainsi de suite sans me poser de question sur leur nommage déjà existant et au pire si le code ne trouve plus d'onglet alors sortie de procédure

Le but c'est de pouvoir appliquer un autre code sans me poser la question de savoir comment s'appellent les onglets du fichiers

Merci

J'ai déjà vu un topic avec les différentes façons de nommer des onglets mais je ne retrouve plus