XL 2016 procédure pour connaitre le prix du produit que je tape

Hello tout le monde,

J'ai une liste de produits qui ont des noms propres et des prix.
J'aimerais créer un module où dès que je rentre un nom de catégorie (InputBox) issu d'une liste mise sur Excel (par exemple "A-34") et bien ça m'affiche en MsgBox le prix que je veux (et qui est mentionné sur une liste excel, cf le fichier)
Sachant que j'ai un tableau à 2 colonnes (colonne produit, colonne prix)
J'aimerais mettre des InputBox et des MsgBox et je réfléchissais à mettre une fonction Array

un truc du genre que j'ai tenté:

Sub Px()
Dim Prix As Double
Prix = Array("B2", "B3", "B4", "B5", "B6", "B7", "B8", "B9")
MsgBox ("le prix du produit est " & Prix)

End Sub


cf le fichier
Qu'en pensez vous et comment auriez-vous procéder ?