Sub ComboBox1_Change()
valeurcherchée = ComboBox1.Value
'Range à adapter en fonction du tableau réel
Ref = Application.WorksheetFunction.VLookup(valeurcherchée, Sheets("Tarif").Range("A1:C56"), 2, False)
If IsError(Ref) Then
MsgBox "Valeur inexistante"
Else
Msgbox "La valeur existe"
End If
End Sub