Sub Rechercher()
Dim x$, i As Variant
x = InputBox("Entrez la valeur texte, nombre, date, heure :", "Rechercher")
If x = "" Then Exit Sub
Range("B8", Range("B" & Rows.Count).End(xlUp)).Name = "T" 'nom défini
If IsNumeric(x) Then x = Replace(CDbl(x), ",", ".") Else _
If IsDate(x) Then x = Replace(CDbl(CDate(x)), ",", ".")
i = Evaluate("MATCH(""" & x & """,""""&T,0)")
If IsNumeric(i) Then [T].Cells(i).Select 'valeur trouvée
End Sub