Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sauvegarde As String
'avec date et heure si plusieurs sauvegardes dans la journée
Sauvegarde = "M:\\Johan\Sauvegarde\" & ThisWorkbook.Name & " " & Replace(Replace(Now, "/", "-"), ":", "-") & ".xlbs"
ThisWorkbook.SaveAs Sauvegarde
End Sub