Sub cherche()
prod = "piton 5"
paq = 20 'nombre et non pas texte
For Each C In Sheets("Feuil1").Range("d2:d50")
If Not C = "" Then
If C = prod And C.Offset(0, -1) = paq Then MsgBox "Occurence trouvée à " & C.Offset(0, 1) & "€"
' exit sub 'si on veut quitter après la première occurence
End If
Next C
End Sub