Dans VBA, Designer le dernier d'une fonction?

Voici la solution mais c'est toi thierry qui l'a donnée :

Dim Y As Byte
ActiveSheet.ChartObjects("Graphique 9").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
Y = ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(Y).Values =
ActiveChart.SeriesCollection(Y).Name =


Voila


Bon vent a tous et encore merci