Sheets("ATELIER").Select
'ActiveSheet.ChartObjects(1).Name = 'Le nom du Graphique' CHANGER LE NOM
'ActiveSheet.ChartObjects.Add(POSGAUCHE,POSSOMMET,LARGEUR, HAUTEUR).Name = ("Graphique 1")
ActiveSheet.ChartObjects.Add(0, 0, 720, 450).Name = ("Graphique 1")
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("ATELIER").Range(Cells(1, 5), Cells(100, 5))
'Pour créer une tendance
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = Sheets("ATELIER").Range(Cells(1, 8), Cells(100, 8))
'pour supprimer une tendance
ActiveSheet.ChartObjects("Graphique 1").Select
ActiveChart.SeriesCollection(1).Delete