XL 2010 Paramétrer nom onglet dans une variable au niveau d’une cellule

Sub echelle_graph()
'
    'modification de l'echelle du graphique

Dim planete As String
Dim x, y As Byte

    planete = Cells(15, 3).Value 'recupère le nom de la planète
    
    If planete = "Mercure" Then y = 2: x = 2
    If planete = "Venus" Then y = 2: x = 2
    If planete = "Mars" Then y = 3: x = 3
    If planete = "Jupiter" Then y = 7: x = 7
    If planete = "Saturne" Then y = 11: x = 11
    If planete = "Uranus" Then y = 21: x = 21
    If planete = "Neptune" Then y = 31: x = 31
    If planete = "Soleil" Then y = 2: x = 2
    
    Sheets("graph").Select
    
    ActiveChart.ChartArea.Select
    
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = y * -1
    ActiveChart.Axes(xlValue).MaximumScale = y
    
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).MinimumScale = x * -1
    ActiveChart.Axes(xlCategory).MaximumScale = x
      
End Sub

Sub MasquerCourbes()
...
...
End With
GestionImages

Echelle_graph        ' Mise à l'échelle vs la planète
End Sub

 ActiveChart.ChartArea.Select
 par
 ActiveSheet.ChartObjects("Graphique 1").Activate

Sub TesterAxesGraphique()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim planete As String
    Dim x As Double, y As Double

    ' Définir la feuille de calcul active
    Set ws = ActiveSheet

    ' Définir l'objet graphique en utilisant le nom VBA
    On Error Resume Next
    Set cht = ws.ChartObjects("Chart 1")
    On Error GoTo 0

    ' Vérifier si le graphique existe
    If Not cht Is Nothing Then
        ' Tester chaque planète
        Dim planetes As Variant
        planetes = Array("Mercure", "Venus", "Mars", "Jupiter", "Saturne", "Uranus", "Neptune", "Soleil")

        For Each planete In planetes
            Select Case planete
                Case "Mercure", "Venus", "Soleil"
                    x = 2
                    y = 2
                Case "Mars"
                    x = 3
                    y = 3
                Case "Jupiter"
                    x = 7
                    y = 7
                Case "Saturne"
                    x = 11
                    y = 11
                Case "Uranus"
                    x = 21
                    y = 21
                Case "Neptune"
                    x = 31
                    y = 31
            End Select

            ' Modifier les valeurs des axes X et Y pour chaque planète
            With cht.Chart
                .Axes(xlCategory).MinimumScale = x * -1
                .Axes(xlCategory).MaximumScale = x
                .Axes(xlValue).MinimumScale = x  * -1
                .Axes(xlValue).MaximumScale = y
            End With

            ' Afficher un message pour indiquer la planète testée
            MsgBox "Axes ajustés pour la planète : " & planete
        Next planete
    Else
        MsgBox "Le graphique spécifié n'existe pas."
    End If
End Sub