Test de rapidité d'execution de recherche par différentes methodes

Private Sub CommandButton9_Click()
y = Timer
tablo = Range("A1:A65536")
For t = 1 To L
For n = LBound(tablo, 1) To UBound(tablo, 1)
 If CStr(tablo(n, 1)) = TextBox1.Value Then
   Exit For
 End If
Next n
Next t
TextBox9 = Timer - y
End Sub

Private Sub CommandButton9_Click()
Dim a As Range
y = Timer
Range("A1:A65535").AutoFilter
For t = 1 To L
    ActiveSheet.Range("$A$1:$A$65535").AutoFilter Field:=1, Criteria1:=TextBox1
    Set a = Range("A1:A65535").SpecialCells(xlCellTypeVisible).Cells(1)
Next t
Range("A1:A65535").AutoFilter
TextBox9 = Timer - y
End Sub

Private Sub CommandButton9_Click()
y = Timer
x = CDbl(TextBox1.Value)
Tablo = Range("A1:A65536")
For t = 1 To 1000
deb = 0: fin = 65536
aa: pas = Int((fin - deb) / 2)
    If Tablo(deb + pas, 1) <> x Then
        If deb + pas > x Then
            fin = deb + pas - 1
        Else
            deb = deb + pas + 1
        End If
        GoTo aa:
    End If
Next t
TextBox9 = Timer - y
End Sub

Private Sub CommandButton11_Click()
    x = CDbl(TextBox1.Value)
    y = Timer
    Dim d As Variant
    For t = 1 To L
        d = CVErr(xlErrNA)
        d = Application.Match(x, Sheets("Feuil1").Range("A:A"), 0)
    Next t
    Z = Timer
    temps = Z - y
    TextBox11.Value = temps
End Sub

Private Sub CommandButton12_Click()
    Dim tablo: tablo = Application.Transpose(Sheets("Feuil1").Range("A:A").value)
    x = CDbl(TextBox1.Value)
    y = Timer
    Dim d As Variant
    For t = 1 To 1000
        d = CVErr(xlErrNA)
        d = Application.Match(x, tablo, 0)
    Next t
    Z = Timer
    temps = Z - y
    TextBox12.Value = temps
End Sub