Bonjour à tous
A placer dans le module de la feuille en question.
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Target(, 2).Value = IIf(Target = "", "", Date)
Application.EnableEvents = True
End Sub
Sinon il y a toujours les touches Ctrl + ;
Ou mettre un fichier test....