Sub Sauve()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
MsgBox "attention arrêtez votre travail !"
Sleep (3000) ' pause de 3 seconde
ThisWorkbook.SaveCopyAs Filename:=Dossier & Nom & strDate & ".xls"
DeleteEnTrop (Dossier)
CopieSauvegardeAuto
End Sub