Déconnecter un graphique de sa source

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