Sheets("temps1").Select
ActiveSheet.ChartObjects("Graphique 23").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("temps1").Range("A6:A19,E6:F19"), _
PlotBy:=xlColumns
ActiveWindow.Visible = False
Windows("calcul du taux de rebuts TOLECTRO.xls").Activate
Range("F127").Select