Masquer lignes en fonction de la valeur entrée dans InputBox

Bonjour à tous,

Je fais appel à vos connaissances VBA pour m'aider. Voilà mon soucis :

J'ai deux fichiers excel distincs, l'un étant une "application", l'autre une base de données. Via un bouton sur l'application, cela ouvre la BDD et affiche une InputBox demandant à l'utilisateur de préciser ce qu'il cherche (sur la BDD). Je souhaiterai que seuls les items portants le nom entré dans l'Inputbox apparaissent dans la BDD.

Autrement dit, je voudrais masquer toutes les lignes ne comportant pas cet item (classés en colonne A de ma BDD).

Mon nombre de ligne évolue et est assez important.

(je suis loin d'être un As de VBA, donc soyez cléments svp )

Voilà ce que j'ai pour l'instant :

Public Sub Bouton1_Cliquer()

Workbooks.Open "BDD Cov TEST v3.xlsm"
Set wbSource = ActiveWorkbook

Dim itemRecherche As String

itemRecherche = InputBox("Item", "Entrez l'item recherché")
Windows("BDD Concerto TEST v3").Activate

Range("A3").Select

'Boucle qui tourne jusqu'à ce qu'elle rencontre une cellule vide

While IsEmpty(ActiveCell.Value) = False

 ' Si la valeur n'est pas "itemRecherche", la ligne est masquée

    If ActiveCell.Value <> "itemRecherche" Then
    Selection.EntireRow.Hidden = True

    Else
    Selection.EntireRow.Hidden = False

End If

ActiveCell.Offset(1, 0).Select

Wend

End Sub

Merci d'avance !

Greggg