Set trouve = Sheets("Devis").Range("B:B").Find(What:=Me.TextBox_ref.Text, LookIn:=xlValues, LookAt:=xlWhole)
If trouve Is Nothing Then
MsgBox "Référence inconnue"
Me.TextBox_ref.SetFocus
Else
Cells.Find(What:=Me.TextBox_ref.Text, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate