Ce qui donne cela :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.FormulaR1C1 = Now()
End Sub
A copier coller dans le code de la feuille : ou au clavier touche ALT et F11 en même temp.
bonne soirée
ou encore :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Date
End Sub
@+