Bonjour,
Dans le module ThisWorkbook ... il te suffit d'ajouter :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Run("LeNomdeta Macro")
End Sub
Ou ... pour éxécution à l'ouverture ... ( ce qui pourrait être plus logique...)
Private Sub Workbook_Open()
Application.Run("LeNomdeta Macro")
End Sub
En espèrant que cela t'aide ...