Je t'invites à tester ce code dans la feuille traçabillité
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A60000")) Is Nothing Then
If Len(ActiveCell.Offset(-1, 0)) > 10 Then
If ActiveCell.Offset(-1, 2) = "" Then ActiveCell.Offset(-1, 2) = Now
End If
End If
End Sub