Private Sub CommandButton1_Click()
Var_Chemin = "I:\****\****\TTIS.xls"
Workbooks.Open Var_Chemin, 0, ReadOnly:=False
Workbooks("TTIS.xls").Sheets("Feuil1").Copy Before:=Workbooks("test.Mikael.xls").Sheets("test.Mikael")
Workbooks("TTIS.xls").Close
Worksheets("Feuil1").Select
Range("A2").Select
End Sub