Application.Match pour rechercher une valeur quelconque

Sub Rechercher()
Dim x As Variant, i As Variant, c As Range
x = InputBox("Entrez la valeur texte, nombre, date, heure :", "Rechercher")
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
Else 'valeurs logiques TRUE-FALSE ou valeurs d'erreur
  Set c = [B:B].Find(x, , xlValues, xlWhole)
  If Not c Is Nothing Then c.Select
End If
End Sub

Private Sub CommandButton1_Click()
Dim x As Variant, i As Variant, r As Range
x = TextBox1
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))
With ActiveSheet.UsedRange
  For Each r In IIf(OptionButton1, .Rows, .Columns)
    i = Application.Match(x, r, 0)
    If IsNumeric(i) Then r.Cells(i).Select: Exit Sub
  Next
  'valeurs logiques et valeurs d'erreur
  If UCase(x) = "VRAI" Then x = "TRUE"
  If UCase(x) = "FAUX" Then x = "FALSE"
  Set r = .Find(x, , xlValues, xlWhole, IIf(OptionButton1, xlByRows, xlByColumns))
  If r Is Nothing Then MsgBox "Valeur introuvable": Exit Sub
  r.Select
End With
End Sub