Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Target.Offset(0, 1) = Time
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value
End If
End Sub
*Attention : Si tu retournes dans la cellule A1 pour la modifier B1 se remettra à jour...