Bonsoir,
teste et dis quoi,bien sur procédure a adapter a tes besoins.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'écrit dans la colonne A
Target.Offset(0, 1) = Date 'alors mets la date du jour dans la colonne a coté
End If
End Sub
A+