Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
If Not Me.Saved Then Me.Save 'enregistre les modifications
Me.SaveAs "D:\Users\perso\Desktop\sauv\" & Left(Me.Name, Len(Me.Name) - 5), 51 '51 => fichier .xlsx
End Sub