Bonjour
Un essai (qui a l'air de fonctionner (mais aujourd'hui plus sur de rien))
Code à rajouter dans le fichier de Bruno9442 dans ThisWorkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime Temps, "FermerClasseur", , False
On Error GoTo 0
Temps = Now + TimeValue("00:00:10")
Application.OnTime Temps, "FermerClasseur"
End Sub
Bonne journée