Axe des abscisses qui ne s'actualise pas

Sub AxeX(F As Worksheet) 'macro paramétrée
Dim plageX As Range, i%
With F
    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

Sub MAJ()
AxeX Me
End Sub

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