XL 2016 Update la fonction Lookup Lors d'un changement de donnée

Bonjour,

Je réalise actuellement pour un fichier pour ma société.

Lorsque je rempli la case Code Référence, cela donne automatiquement via une RechercheV en VBA le Titre concerné. Jusque la le code fonctionne.

Mais quand je change et que je vais sur l'onglet modifier ou supprimer cela me donne une erreur.
Voici le code utilisé :
Private Sub ComboMagazine_Change()

Dim F As Worksheet

Set F = Worksheets("BD_Entrée")

TextBoxTitre.Text = Application.WorksheetFunction.VLookup(ComboMagazine.Text, F.Range("A2:B111"), 2, Faux)

End Sub

Ceci et le code pour mon changement de menu :
Private Sub ComboNumOrdre_Change()
RazTransport

With Sheets("Entrée")
Me.ComboMagazine = .Range("B" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtNumMag = .Range("H" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtDate = .Range("D" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtQuantité = .Range("E" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtPal = .Range("F" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtCommentaires = .Range("I" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtDestination = .Range("C" & Me.ComboNumOrdre.ListIndex + 5)
Me.TxtTransporteur = .Range("G" & Me.ComboNumOrdre.ListIndex + 5)
Me.TextBoxTitre = "Essai"
End With

End Sub

Comment puis je faire pour ne plus avoir d'erreur svp ?

Bien cordialement,
Alex