Option Explicit
Option Compare Text

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
Dim lig As Integer
Dim i As Byte
Dim plage As Range

With Feuil10
    Set plage = .Range("B3:B" & .Range("A" & Rows.Count).End(xlUp).Row)
    On Error Resume Next
    lig = plage.Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Row
    If lig = 0 Then
        MsgBox "La référence " & TextBox1.Value & " n'existe pas", vbCritical, "Référence inexistante"
        TextBox1 = vbNullString
        TextBox1.SetFocus
        Exit Sub
    End If
    TextBox2 = .Range("C" & lig).Value
    TextBox3 = .Range("D" & lig).Value
    For i = 4 To 13
        Controls("Textbox" & i) = .Cells(lig, i + 4).Value
    Next i
    TextBox14 = .Range("E" & lig).Value
    TextBox15 = .Range("F" & lig).Value
    TextBox16 = .Range("G" & lig).Value
End With

End Sub

Private Sub TextBox1_Change()
Dim i As Byte
If TextBox1 = vbNullString Then
    For i = 2 To 16
        Controls("Textbox" & i) = vbNullString
    Next i
End If
End Sub