Private Sub Workbook_BeforeClose(Cancel As Boolean)
CreateObject("WScript.Shell").Popup "Cette USF se fermera toute seule comme une grande dans 2 secondes", 2, "Fermeture"
End Sub
Private Sub Workbook_Open()
CreateObject("WScript.Shell").Popup "Cette USF se fermera toute seule comme une grande dans 2 secondes", 2, "Ouverture"
End Sub