Sub Graphique()
Dim Zone As Range
On Error Resume Next
Set Zone = Application.InputBox("sélectionner la zone pour le graphique SVP.", Type:=8)
On Error GoTo 0
If Zone Is Nothing Then
MsgBox "Pas de zone sélectionnée => abandon."
Exit Sub
End If
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Zone
ActiveChart.ChartType = xlLine
Set Zone = Zone.Offset(-1, 0)
ActiveChart.SeriesCollection(1).XValues = Zone
End Sub