Sub test()
Dim Feuille As Worksheet
Dim Graph As ChartObject
'Dim Serie
For Each Feuille In ThisWorkbook.Sheets
For Each Graph In Feuille.ChartObjects
For Each Serie In Graph.Chart.SeriesCollection
Serie.name = Serie.name
Serie.Values = Serie.Values
Serie.XValues = Serie.XValues
Next
Next
Next
End Sub