Sub Test_OK()
Dim DONNEES_GRAPH As Range
Set DONNEES_GRAPH = Application.InputBox("Sélectionnez la source pour le graphique", "Mise à jour graphique", , , , , , 8)
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetSourceData Source:=DONNEES_GRAPH
End Sub