Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
' EXEMPLES DE TESTS pour sortir si ce n'est pas la zone bien définie où vous souhaitez avoir la date :
' If Sh.Name <> "stats" Then Exit Sub '< exit si ce n'est pas dans cette feuille
' If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub '< exit si clic hors de ce range
' ou encore Range("A1:A10,C1:C10,E15,F5,H3:H8,F:F") '< exit si hors ces ranges ...