Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E4:E" & Cells(Rows.Count, 5).End(xlUp).Row), Target) Is Nothing And Target.Count = 1 Then
Target.Offset(, 1).Value = Application.Index(Feuil3.Range("A2:B" & Cells(Rows.Count, 2).End(xlUp).Row), Application.Match(Target.Value, Feuil3.Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row), 0), 2)
End If
End Sub