Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K2:K65535")) Is Nothing Then
If Cells(Target.Row, 11).Value = "Retour RUNGIS" Then
Cells(Target.Row, Target.Column + 1).Value = Date
Else
Cells(Target.Row, Target.Column + 1).Value = ""
End If
End If
End Sub