Dans un classeur de 600 onglets, comment se rendre directement à l'onglet recherché?

Sub Déplacement()
Dim Feuille As String
Feuille = InputBox("Nom de l'onglet à atteindre :")
On Error GoTo ExistePas
Sheets(Feuille).Activate
On Error GoTo 0
Exit Sub
ExistePas:
MsgBox "Cette feuille n'existe pas !!!"
End Sub

Option Explicit

Private Sub ComboBox1_Click()
    Worksheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End Sub

Private Sub ComboBox1_DropButtonClick()
Dim a() As String, n As Long
Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        n = n + 1
        ReDim Preserve a(1 To n)
        a(n) = Ws.Name
    Next Ws
    With ComboBox1
        .ListRows = 64
        .List = Application.Transpose(a)
    End With
End Sub