Bonjour à tous,
J'ai trouvé avec ce code, ça fonctionne parfaitement
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A2300")) Is Nothing Then
lig = 0
col = 18
If Target.Value = "" Then
Target.Offset(lig, col).Value = ""
Else
Target.Offset(lig, col).Value = Now
End If
End If
End Sub
Merci à tous