Sub Rechercher()
Dim x As Variant, i As Variant
x = InputBox("Entrez la valeur texte, nombre, date, heure :", "Rechercher")
If x = "" Then Exit Sub
i = Replace(x, ".", Mid(1.1, 2, 1)) 'séparateur décimal de l'ordi
If IsNumeric(i) Then x = CDbl(i) Else If IsDate(x) Then x = CDbl(CDate(x))
i = Application.Match(x, [B:B], 0)
If IsNumeric(i) Then Cells(i, 2).Select 'valeur trouvée
End Sub