Module qui donne prix en fonction du nom de produit tapé

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic
Dim NP As Variant 'déclare la variable NP (Nom de la Pièce)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter a ton cas)
TV = Range("A1").CurrentRegion 'définit le tableau des valeurs TV
NP = Application.InputBox("Tapez le code de la pièce.", "CODE", Type:=2) 'définit le nom de la pièce NP
If NP = False Or NP = "" Then Exit Sub 'si bouton [Annuler] ou non renseigné sort de la procédure
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I su tableau des valeurs (en partant de la seconde)
    If TV(I, 1) = NP Then 'condition : si NP correspond a la donnée ligne I colonne 1 du tableau des données TV
        MsgBox TV(I, 2) 'message affichant la donnée en ligne I colonne 2, le prix
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub