Sub truc()
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="D:\Jeux\toto_2016.xlsm"
Range("A2").Value = 10
Workbooks.Open Filename:="D:\Jeux\toto_2015.xlsm"
Workbooks("toto_2015.xlsm").Activate
Range("A5").Value = 15
Workbooks("toto_2016.xlsm").Close
MsgBox "ok"
End Sub