Bonjour eric2-6 et le Forum,
dans le module de ta feuille (pas dans un module standard) le code suivant,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Long
DerLig = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A2" & ": A" & DerLig)) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 1) = Date
Target.Offset(0, 2) = Format(Now, "hh:mm")
Application.EnableEvents = True
End If
End Sub
Cordialement