'Dim Graph1 As Worksheet
'Dim Data1 As Worksheet
'Set Graph1 = Worksheets("Ccat1")
'Set Data1 = Worksheets("Cat1")
'Set Sim = Worksheets("Simu")
'Graph1.ChartObjects("Graphique 1").Activate
'With ActiveChart
'Do Until .SeriesCollection.Count = 0
' .SeriesCollection(1).Delete
'Loop
'End With
'ActiveChart.SetSourceData Source:=Range("Tableau1")