Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim adr$, rep$
rep = MsgBox("Voulez vous sauvegarder le fichier?", vbYesNo, "Sauvegarde du fichier")
If rep = vbNo Then Exit Sub
adr = ThisWorkbook.Name
Application.DisplayAlerts = 0
ThisWorkbook.SaveAs ("C:\Sauvegarde1\" & adr & " " & Format(Date, "yyyymmdd") & ".xls")
ThisWorkbook.SaveAs ("D:\Sauvegarde2\" & adr & " " & Format(Date, "yyyymmdd") & ".xls")
ThisWorkbook.Save
Application.DisplayAlerts = 1
End Sub