Petit Problème Vlookup VBA type de donnée

Bonjour,

Je suis débutant en vba, mon problème peut donc paraître assez simple:

J'ai un tableau de 2 colonnes:

La première colonne contient des données du type: 100012, *_RBOSGB2R, ABNAGB22 ou encore S0148.
La deuxième colonne contient des données de type: 11569742165 ou GF DE L'ILE DE FRANCE - LA FORET GEREE III

J'ai donc écrit le code suivant qui procède comme suit: il recherche la valeur d'une textbox dans la première colonne et renvoie la valeur de la deuxième colonne dans une autre textbox.

J'ai mis les deux variables en variant. Lorsque je recherche du texte (par exemple S0047) tout fonctionne bien, dès que je mets une valeur numérique du type: 100012, j'ai l''erreur 1004: Impossible de lire la propriété Vlookup de la classe Worksheetunction.

Voici le code:

Private Sub CommandButton1_Click()

Dim TEXT1 As Variant
Dim TEXT2 As Variant

TEXT2 = TextBox1.Value

TEXT1 = Application.WorksheetFunction.VLookup(TEXT2, Sheets("Extrait de la base tiers").Range("B3:C7000"), 2, False)

TextBox2.Value = TEXT1

End Sub

Merci pour votre aide!

Ludovic.