Private Sub ListBox1_Click()
Charts.Add
ActiveChart.Location xlLocationAutomatic, Name:="ChartSpace1"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Array(1, 2, 3, 4, 5)
ActiveChart.SeriesCollection(1).Values = Array(Scénario(ListBox1.ListIndex + 1, 1), _
Scénario(ListBox1.ListIndex + 1, 2), Scénario(ListBox1.ListIndex + 1, 3), _
Scénario(ListBox1.ListIndex + 1, 4), Scénario(ListBox1.ListIndex + 1, 5))
ActiveChart.ChartType = xlLineMarkers
End Sub