Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim AdrFic
Application.EnableEvents = False
Cancel = True
AdrFic = Application.GetSaveAsFilename(InitialFileName:="C:\temp\", FileFilter:="Classeur Excel (*.xls), *.xls")
If AdrFic <> False Then
ThisWorkbook.SaveAs AdrFic
End If
Application.EnableEvents = True
End Sub