Ciao Flavio
E' possibile con una macro di questo genere inserita nel modulo del foglio interessato che funziona solo sulla cella A1 ed inserisce in B1 data e ora.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Target.Offset(0, 1).Value = Now
End If
End Sub