Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Integer
If Not Application.Intersect(Target, Range("F9")) Is Nothing Then
DerLig = Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("Feuil2")
Set c = .Range("D1:D" & DerLig).Find(Target.Value, LookIn:=xlValues)
If Not c Is Nothing Then
Worksheets("Feuil1").Cells(Target.Row, 7) = .Cells(c.Row, 2).Value
Worksheets("Feuil1").Cells(Target.Row, 8) = .Cells(c.Row, 1).Value
Worksheets("Feuil1").Cells(Target.Row, 9) = .Cells(c.Row, 3).Value
End If
End With
End If
End Sub