XL 2021 Figer/Verrouiller mise en forme d'un graphique

Sub CopyCharts()
    Dim oChart As ChartObject
    Dim LeftPoints As Double
    Dim TopPoints As Double
    
    For Each oChart In Worksheets(1).ChartObjects
        LeftPoints = oChart.Left
        TopPoints = oChart.Top
        oChart.Copy
        Worksheets(2).Paste
        Set oChart = Worksheets(2).ChartObjects(Worksheets(2).ChartObjects.Count)
        oChart.Left = LeftPoints
        oChart.Top = TopPoints
    Next oChart
End Sub

Sub GetChartSourceData()
    Dim myChartObject As ChartObject
    Dim myChart As Chart
    Dim sourceData As Range
    
    ' Assurez-vous que l'objet ChartObject est actif
    Set myChartObject = ActiveSheet.ChartObjects(1)
    
    ' Obtenez l'objet Chart à partir de l'objet ChartObject
    Set myChart = myChartObject.Chart
    
    ' Obtenez la plage SourceData du graphique
    Set sourceData = myChart.SourceData
    
    ' Affichez la plage SourceData dans la fenêtre Immediate
    Debug.Print "SourceData du graphique : " & sourceData.Address
End Sub

Sub a()
    Dim oChart As ChartObject
    Dim Chart As Chart
    Dim i As Integer
    
    For Each oChart In Worksheets(1).ChartObjects
        Set Chart = oChart.Chart
        'MsgBox Chart.
        For i = 1 To Chart.SeriesCollection.Count
            MsgBox i & " -> " & Chart.SeriesCollection(i).Formula
        Next i
    Next oChart
End Sub

Sub a()
    Dim oChart As ChartObject
    Dim Chart As Chart
    Dim i As Integer
    For Each oChart In Worksheets(1).ChartObjects
        Set Chart = oChart.Chart
        For i = 1 To Chart.SeriesCollection.Count
            tablo = Split(Chart.SeriesCollection(i).Formula, ",")
            MsgBox "Plage X : " & tablo(1) & Chr(10) & _
                    "Plage Y : " & tablo(2)
        Next i
    Next oChart
End Sub

Sub a()
    Dim oChart As ChartObject
    Dim Chart As Chart
    Dim i As Integer
    For Each oChart In Worksheets(1).ChartObjects
        Set Chart = oChart.Chart
        For i = 1 To Chart.SeriesCollection.Count
            tablo = Split(Chart.SeriesCollection(i).Formula, ",")               ' On récupère l'équation
            PlageX = "Feuil1!$A$2:$A$24"                                        ' Nouvelles plages
            PlageY = "Feuil1!$C$2:$C$24"
            Chaine = tablo(0) & "," & PlageX & "," & PlageY & "," & tablo(3)    ' On la reconstitue
            Chart.SeriesCollection(i).Formula = Chaine                          ' On modifie la formule
        Next i
    Next oChart
End Sub