voici une façon de faire :
Option Explicit
'Ti
Sub NouvelleSource(Graph As ChartObject, PlageSource As Range)
Dim Source As String
Source = "=" & PlageSource.Worksheet.Name & "!" & PlageSource.Address(, , xlR1C1)
With Graph.Chart
.SeriesCollection(1).Values = Source
End With
End Sub
Sub Test()
Dim Plage As Range, Graph As ChartObject
On Error GoTo erreur
'ici F1 est le nom de la feuille où se trouvent le graphique et les valeurs
With F1
Set Plage = .Range("A6", .Range("A6").End(xlToRight))
Set Graph = .ChartObjects(1)
'tu pourrais aussi écrire
'Set Graph = .ChartObjects("GraphTest")
End With
'pour modifier le 1er graphique
NouvelleSource Graph, Plage
Exit Sub
erreur:
MsgBox "Erreur !", vbCritical
End Sub