Private Sub TextBox2_Change()
Dim Fourn As Range, Lg As Long
With Feuil1
Set Fourn = .Columns(2).Find(TextBox2, LookIn:=xlValues, lookat:=xlWhole)
If Fourn Is Nothing Then
TextBox3 = ""
TextBox7 = ""
Exit Sub
Else
Lg = Fourn.Row
TextBox3 = .Range("C" & Lg)
TextBox7 = .Range("D" & Lg)
End If
End With
End Sub