Bonsoir , code à placer dans Thiswokbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' avant la fermeture
Call macro_souhaité
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' avant la sauvegarde
Call macro_souhaité
End Sub