Sheets("feuillemodèle").Select
Sheets("feuillemodèle").Copy Before:=Sheets(1)
Sheets("feuillemodèle (2)").Select
Sheets("feuillemodèle (2)").Name = "ES2"
Range("A1") = "ES2"
Range("T9").Select
ActiveCell.FormulaR1C1 = "6"
ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(,'" & Range("A1").Value & "'!graphOrdfeuillemodèle,'" & Range("A1").Value & "'!graphOrdfeuillemodèle,1)"