Sub MAJ_AxeX()
'se lance par Ctrl+M
Dim w As Worksheet, plageX As Range, s As Series
For Each w In Worksheets
If w.ListObjects.Count And w.ChartObjects.Count Then 'si tableau Excel et graphique
Set plageX = w.ListObjects(1).DataBodyRange.Columns(1).Resize(, 2) 'colonnes A:B
For Each s In w.ChartObjects(1).Chart.SeriesCollection
s.XValues = plageX
Next s
End If
Next w
End Sub