Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne As Integer
If Not Intersect(Target, Range("D4")) Is Nothing Then
Range("D6:D10") = Empty
Range("A1") = Empty
For ligne = 4 To Sheets("Bd").Range("B3").End(xlDown).Row
If Range("D4") = Sheets("Bd").Range("B" & ligne) Then
Range("A1") = Sheets("Bd").Range("F" & ligne)
Range("D6") = Sheets("Bd").Range("C" & ligne)
Range("D8") = Sheets("Bd").Range("D" & ligne)
Range("D10") = Sheets("Bd").Range("E" & ligne)
Exit Sub
End If
Next ligne
AffiheImage
End If
End Sub