Sub SauvegardeAuto()
Application.DisplayAlerts = False
Dim dName$, vName$
dName = Range("A1")
vName = ActiveWorkbook.FullName
ActiveWorkbook.SaveCopyAs "S:\..." & dName & " " & Format(Date, "DD.MM.YY") & " à " & Format(Time, "hh.mm.ss") & ".xlsm"
Workbooks.Open("S:\..." & dName & " " & Format(Date, "DD.MM.YY") & " à " & Format(Time, "hh.mm.ss") & ".xlsm")
Set wb_Open = ActiveWorkbook
wb_Open.Activate
wb_Open.Sheets("LaFeuilleQueTuSouhaitesAfficher").Activate
ActiveWindow.DisplayWorkbookTabs = False
wb_Open.Close SaveChanges:= False
ActiveWorkbook.SaveAs vName
Application.DisplayAlerts = True
End Sub