Salut Mita, merci pour ta réponse, mais je n'arrive pas à faire marcher ta formule...
Ou dois je mettre *Option Explicit Dim... et comment.
Pour l'open et la suivante, je les ais collé, celà ce partage automatiquement, ça devrait jouer!
Ecrit ceci dans le module ThisWorkbook
Option Explicit ?
Dim chrono As Single ?
--------------------------------------------------------
Private Sub Workbook_Open()
chrono = Timer
End Sub
---------------------------------------------------------
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
If Timer - chrono < 5 Then
Cancel = True
Else
Cancel = False
End If
End Sub