Public Sub actu_SO()
Dim vr As String
Dim r As Range
With UsfSortieOutil
.TxBnOutil.Value = Recherche.TextBox1.Value
vr = Recherche.TextBox1.Value
Set r = Sheets("Emplacement").Columns(1).Find(vr, , xlValues, xlWhole)
.TxBLocalisation = r.Offset(0, 5).Value
Set r = Sheets("Stock").Columns(1).Find(vr, , xlValues, xlWhole)
.TxBQteStock = r.Offset(0, 2)
End With
End Sub