Déconnecter un graphique de sa source

[Troudz]

Bonjour,

Je dispose d'un classeur contenant un grand nombre de graphiques.
Je voudrais déconnecter ces graphiques de leur source de données.
Pour cela, j'ai écris la boucle suivante en m'inspirant des conseils de ce site

Sub Boucle()
    Dim Feuille As Worksheet
    Dim Graph As ChartObject
    For Each Feuille In ThisWorkbook.Sheets
        For Each Graph In Feuille.ChartObjects
            For i = 1 To Graph.Chart.SeriesCollection.Count
                Graph.Chart.SeriesCollection(i).Name = Graph.Chart.SeriesCollection(i).Name
                Graph.Chart.SeriesCollection(i).Values = Graph.Chart.SeriesCollection(i).Values
                Graph.Chart.SeriesCollection(i).XValues = Graph.Chart.SeriesCollection(i).XValues
            Next
        Next
    Next
End Sub

Je n'arrive pas à comprendre pourquoi ça plante dès la ligne 7.
Auriez vous une idée ?

Je vous remercie par avance

Bonne journée