Stocker nom onglet dans une variable

Bonjour,

J'ai un graphique par onglet dans mon classeur Excel, qui se nomme tous par défaut "Graphique1"

Je voudrais que chaque graphique porte le nom de son onglet.

J'ai fait ce code qui s'applique à l'onglet actif, mais je bloque pour le faire pour tous les onglets du classeur.

Merci d'avance.

Sub testerzae()

Dim nomfeuille As String
Dim graphique As ChartObject
Dim onglet As Worksheet
nomfeuille = ActiveSheet.Name
For Each onglet In ActiveWorkbook.Worksheets
    For Each graphique In onglet.ChartObjects
        graphique.Name = nomfeuille
    Next graphique
Next onglet

End Sub

J'ai trouvé, c'était facile ^^

    ongletname = onglet.Name