Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CelA As Range, Scan, L As Long
If Target.Address <> [Douchette].Address Then Exit Sub
Application.EnableEvents = False
Set CelA = Cells(Rows.Count, 1).End(xlUp)
Scan = Target.Value
CelA.Value = Scan
On Error Resume Next
L = WorksheetFunction.Match(Scan, Feuil4.[A4].Resize(Feuil4.[A1000000].End(xlUp).Row - 3), 0)
If Err Then
CelA.Offset(, 1).Value = Empty
CelA.Offset(, 2).Value = "A JETER": JouerSonLong
Else
CelA.Offset(, 1).Value = Feuil4.[B4].Rows(L).Value
CelA.Offset(, 2).Value = "OK": JouerSonCourt
Feuil4.[C4].Rows(L).Value = Now: End If
Target.ClearContents
Target.Select
Application.EnableEvents = True
End Sub