VBA : problème recherche avec des chiffres

Bonjour,

Je découvre VBA et je viens de faire un petit macro "moteur de recherche".

Lorsque l'on clique sur le bouton "recherche", une fenêtre s'ouvre : je rentre une référence (qui est dans la base de données (feuille BDD)) et il renvoie les données relatives à cette référence (notamment les différents emplacements où elle peut être stockée) dans la première feuille (nommé page d'ouverture). De plus, ce macro colorie ces emplacements sur le "palettier virtuel" de la feuille "palettier".

Mon problème : lorsque je rentre une référence avec que des lettres ou des lettres et des chiffres ca fonctionne parfaitement. Par contre quand c'est que des chiffres ca ne marche plus : il n'arrive pas à la retrouvée dans la BDD! Assez étrange ...

Je pensais donc que c'était un problème de déclaration de variable mais pas moyen de le résoudre.

Voici mon code (commenté) :

Correspondant au programme principal

Private Sub CommandButton1_Click()
    
    reponse = Application.InputBox("Veuillez rentrer la référence du produit")
    
    'arrete le programme lorsque l'on appuie sur le bouton annuler de la boite de dialogue
    If VarType(reponse) = vbBoolean Then Exit Sub

    'efface le contenu du tableau des emplacements de la page d'ouverture
    Range("B9:B1000").ClearContents
    Range("C9:C1000").ClearContents
    Range("D9:D1000").ClearContents
    
    'Remet tous les emplacements du palettier en blanc (efface)
    For j = 5 To 11 Step 2
        For k = 1 To 65
            If Worksheets("palettier").Cells(j, k).Value Like "7***" Then
                    Worksheets("palettier").Cells(j - 1, k).Interior.Color = vbWhite
            End If
        Next k
    Next j
    
    'appelle la fonction recherche
    Call recherche(reponse)

End Sub

Correspondand à la procédure recherche :

'permet de ne pas prendre en compte la différence entre majuscule et minuscule lors de comparaison
Option Compare Text

Sub recherche(mot)
    
    'declaration des variables
    nb_ligne_bdd = Worksheets("BDD").Cells(65536, 1).End(xlUp).Row
    m = 9
    variable_choix = 10
    Dim emplacement As Variant
    
    'recherche le mot clef dans la base de donnees
    For i = 1 To nb_ligne_bdd
    
        If Worksheets("BDD").Cells(i, 1).Value = mot Then
            
            emplacement = Worksheets("BDD").Cells(i, 2).Value
            
            'fais un copier coller des infos de la BDD dans le tableau de la page d'ouverture
            Worksheets("BDD").Range("A" & i & ":C" & i & "").Copy
            Worksheets("page d'ouverture").Range("B" & m & "").Select
            ActiveSheet.Paste
            
            'colorie les emplacements du palettier correspondant à la référence recherchée
            For j = 5 To 11 Step 2
                For k = 1 To 65
                If Worksheets("palettier").Cells(j, k).Value = emplacement Then
                    Worksheets("palettier").Cells(j - 1, k).Interior.Color = vbBlue
                End If
                Next k
            Next j

            m = m + 1
        End If
    Next i
    
    'permet de connaitre si la reference recherchée est ds la BDD
    If Worksheets("page d'ouverture").Cells(9, 2).Value = Empty And Len(mot) <> 0 Then
        variable_choix = 2
    End If
    
    'permet de savoir si aucun mot a etait rentre
    If Len(mot) = 0 Then
        variable_choix = 1
    End If
    
    'permet d'appliquer les cas au dessus
    Select Case (variable_choix)
        Case 1
            MsgBox "Veuillez rentrer une référence"
        Case 2
            MsgBox "La référence recherchée n'existe pas. Veuillez recommencer"
        Case Else
    End Select
    
 
End Sub

A quoi cela est-il dû ?

Merci d'avance

Cordialement