Re,
Ecrire ne majuscule c'est crier, tien spour te mettre sur la voie si ton graphe exite déjà
Sub MAJGraph(Plage As Range)
Dim Grap As ChartObject
Dim leGrapH As Chart
Set Grap = ActiveSheet.ChartObjects(1)
Set leGrapH = Grap.Chart
With leGrapH
.SetSourceData Range(Plage.Address)
End With
End Sub
Sub Princ()
Dim P As Range
Set P = Application.InputBox("saisir une plage", , , , , , , 8)
MAJGraph P
End Sub
Tu lances Princ, tu sélectionnes ta plage..
Je suis sûr que c'est pas ce que tu veux, mais sans plus de précision ...
A+++