Re,
Tu dois avoir la version 2013 car moi sur 2016 ça ne passait pas. J'ai ajouté deux lignes:
Application.EnableEvents = False
Application.EnableEvents = True
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A2:A600")) 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
If ActiveCell.Column = 4 Then
ActiveCell.Offset(0, 15).Value = Now
End If
Application.EnableEvents = True
End Sub
Et la c'est good
Merci encore pour ton aide.