Dim flag As Boolean 'mémorise la variable
Private Sub Workbook_Open()
'touche <Entrée> pour éviter la fermeture du fichier
Dim t#
t = Now + 10 / 86400
While Now < t
If flag Then Exit Sub
DoEvents
Wend
Me.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
flag = True
End Sub