XL 2016 VBA - Recherche dichotomique dans une table

Sub Rechercher()
Dim ligne&, Achercher
   Achercher = 100
   ligne = Application.Evaluate(Replace("IFERROR(MATCH(xxx,A:A,0),0)", "xxx", Achercher))
   If ligne = 0 Then MsgBox "Pas trouvé" Else MsgBox "Trouvé en ligne " & ligne
End Sub

Public Sub tri()
Dim premligne, derligne, lireligne As Double
Dim valeurcherchee As Double
premligne = 1
derligne = 150000
 
valeurcherchee = InputBox("valeur cherchée")
 
If Range("A1").Value > valeurcherchee Then
    MsgBox ("Pas trouvée")
    Exit Sub
End If
 
If Range("A" & derligne).Value < valeurcherchee Then
    MsgBox ("Pas trouvée")
    Exit Sub
End If
While premligne <> derligne - 1
    lireligne = Int((premligne + derligne) / 2)
    Range("A" & lireligne).Select
    If Selection = valeurcherchee Then
        MsgBox ("trouvee en " + CStr(lireligne))
        Exit Sub
        Else
        If Selection > valeurcherchee Then
            derligne = lireligne
            Else
            premligne = lireligne
        End If
    End If
Wend
If Range("A" & premligne).Value = valeurcherchee Then
    MsgBox ("trouvé en " + premligne)
    Else
    If Range("A" & derligne).Value = valeurcherchee Then
        MsgBox ("trouvé en " + derligne)
        Else
        MsgBox ("Non trouvé")
    End If
End If
End Sub

Function RechDicho(ByVal Arg, ByVal RngCol As Range) As Long
   On Error Resume Next
   RechDicho = WorksheetFunction.Match(Arg, RngCol, 1)
   If Err Then Exit Function
   If RngCol(RechDicho, 1).Value <> Arg Then RechDicho = 0
   End Function