VBA - Valeur dans une cellule en fonction d'une TextBox

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la TextBox1
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim R As Range 'déclare la variable R (Recherche)
Dim LI As Long 'déclare la variable LI (LIgne)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
Set R = O.Columns(2).Find(Me.TextBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur entière de la TextBox1 dans la colonne 2 (=B) de l'onglet O
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
    LI = R.Row 'définit la ligne LI de la première occurrence trouvée
    Me.TextBox2.Value = O.Cells(LI, 5).Value 'renvoie dans la TextBox2 la valeur de la cellule ligne LI colonne 5 (=E) de l'onglet O
End If 'fin de la condition
End Sub

Private Sub TextBox1_Change()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim R As Range 'déclare la variable R (Recherche)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
Set R = O.Columns(2).Find(Me.TextBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur entière de la TextBox1 dans la colonne 2 (=B) de l'onglet O
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
    Me.TextBox2.ControlSource = "'" & O.Name & "'!" & R.Offset(0, 3).Address 'Lie le TextBox2 à la cellule de la colonne E
Else
    Me.TextBox2.ControlSource = "" 'Pas de cellule liée au TextBox2
End If 'fin de la condition
End Sub