Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case "$J$3"
Cancel = True
Target = IIf(Target = "", VBA.Date, "") 'inscrit la date ou efface le contenu
'ou
'Target = VBA.Date 'inscrit la date
'...
End Select
End Sub