Private Sub Worksheet_Change(ByVal Target As Range)
Dim Trouve As Range
If Target.Address = "$E$4" Then
Set Trouve = Sheets("Tableau").Range("A:A").Find(UCase(Range("E4")), lookat:=xlWhole)
If Trouve Is Nothing Then MsgBox "N° introuvable": Range("B8:D8") = "": Range("F1") = "": Exit Sub
Range("B8") = Trouve.Offset(0, 4)
Range("C8") = Trouve.Offset(0, 5)
Range("D8") = Trouve.Offset(0, 6)
End If
End Sub