Bonjour
Afin de fermer un classeur au bout d'un certain temps d'inactivité, j'ai declaré une procedure au niveau Workbook du type :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim PauseTime, Start
    PauseTime = 60  ' Définit la durée.
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + PauseTime
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
    ThisWorkbook.Save
   ThisWorkbook.Close
End Sub
Le probleme est que cela me bloque une procedure au niveau worsheet qui me permettait de declencher une procedure par un double clic sur une feuille du type
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Instruction 
End Sub
Merci d'avance pour une explication de mon erreur.