Bonjour,
Supposons la formule en E3
Mettre la cellule E3 au format personnalisé : jj/mm/aa;; ou autre format date mais suivi de deux ;
Menu Outils / Options / Calcul / cocher "Itérations"
E3 : =SI(B3=0;0;SI(E3>0;E3;AUJOURDHUI()))
Pour changer la date il faut effacer B3 et saisir une valeur.
abcd
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Cells(Target.Row, 1) = Date
End Sub