Private Sub TextBoxref_Change()
Dim i%
On Error Resume Next
i = Application.Match(TextBoxref.Value, Range("REF").Columns(1), 0)
If Err.Number <> 0 Then i = Application.Match(CDbl(TextBoxref.Value), Range("REF").Columns(1), 0)
On Error GoTo 0
TextBoxStock.Value = Range("STOCK").Cells(i)
TextBoxLibelle.Value = Range("LIBELLE").Cells(i)
End Sub