Sub AxeX()
Dim plageX As Range, i%
With Me 'cette feuille
Set plageX = .ListObjects(1).DataBodyRange.Columns(1).Resize(, 2) 'colonnes A:B
With .ChartObjects(1).Chart
For i = 1 To .SeriesCollection.Count
.SeriesCollection(i).XValues = plageX
Next
End With
End With
End Sub