macro sélection rapide

'### Adapter le nom de la feuille concernée ###
Const NOM_FEUILLE As String = "test"
'##############################################

Private Sub TextBox1_Change()
Dim S As Worksheet
Dim R As Range
Dim C As Range
Dim A$
On Error GoTo Erreur
Set S = Sheets(NOM_FEUILLE)
Set R = S.UsedRange
S.Activate
A$ = TextBox1.Text
If A$ = "" Then
  R.Range("a1").Select
  Exit Sub
End If
For Each C In R
  If LCase(Mid(C, 1, Len(A$))) = LCase(A$) Then
    C.Select
    Exit For
  End If
Next C
Exit Sub
Erreur:
Select Case Err
  Case 9
    MsgBox "La feuille ''" & NOM_FEUILLE & "'' est introuvable."
  Case Else
    MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description
End Select
End Sub

Private Sub UserForm_Initialize()
Me.Caption = "Recherche (accès rapide)"
End Sub

Sub SelectionRapide()
UserForm1.Show (vbModeless)
End Sub