Private Sub TextBox1_Change()
Dim ff
prod = TextBox1
ff = Xprod
plac.Clear
If ff = 0 Then intil = " NON REPERTORIE": nbe = "": nbs = "": rest = "": code = "": Exit Sub
intil = Feuil1.Cells(ff, 2)
nbe = Feuil1.Cells(ff, 4)
nbs = Feuil1.Cells(ff, 5)
rest = Feuil1.Cells(ff, 6)
code = Feuil1.Cells(ff, 12)
lesplace
End Sub