Private Sub ImportOLD_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
vCible = ActiveWorkbook.Name
ChDir ThisWorkbook.Path
Workbooks.Open Filename:=ThisWorkbook.Path & "\OLD_Test.xlsx"
vSource = ActiveWorkbook.Name
Workbooks(vSource).Sheets("Ancien odomètre").Copy Before:=Workbooks(vCible).Sheets("Base")
vCache = ActiveSheet.Name
Workbooks(vSource).Close
End Sub