Date aujourd'hui double clique cellule

Bonjour ;

Quel est la formule pour afficher la date d'aujourd’hui lors d'un double clique sur la cellule.

Merci cordialement

Bonjour

A mettre dans la feuille concernée + enregistrement sous XLSM

le double-click dans une des cellules de la colonne A place la date du jour en A3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Target.Column = 1 Then 'si dble click sur la colonne
        Cells(3, 1) = Date 'cellule(A3)
    End If
End Sub

Je voudrais lorsque je double clique sur la cellule I10 cela affiche la date d'aujourd'hui dans la cellule I10

Merci

Re,

Ne sachant sur quelle cellule...

teste comme ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
    If Not Application.Intersect(Target, Range("I10")) Is Nothing Then
        Cells(10, 9) = Date
    End If
End Sub

Je te remercie

Comment applique cette formule pour tout les autres cellules de la même colonnes ?

Merci d'avance