Faire une recherche dans excel

Private Sub CommandButton1_Click()
Load UserForm1
UserForm2.Show
End Sub

Private Sub ZtxtCP_Change()
'cf : http://www.commentcamarche.net/forum/affich-14847865-recherche-semi-auto-dans-excel
Dim Tablo
Dim Tablo_1
Dim lettre As String, test As String
Dim cptr As Integer, cptr_tablo As Integer, derLig As Integer

lettre = UCase(ZtxtCP.Value)
If lettre = "" Then Exit Sub
ReDim Tablo(0)
ReDim Tablo_1(0)
ListboxVilles.Clear
derLig = Sheets("Nom_DE_TA_FEUILLE").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Nom_DE_TA_FEUILLE")
    For cptr = 1 To derLig
        test = .Cells(cptr, 1)
         If .Cells(cptr, 1) Like lettre & "*" Then' cherche la lettre
            Tablo(cptr_tablo) = .Cells(cptr, 1) ' capte le contenu de la cellule A
            Tablo_1(cptr_tablo) = .Cells(cptr, 2) 'capte le contenu de la cellule B
            cptr_tablo = cptr_tablo + 1
            ReDim Preserve Tablo(cptr_tablo)
            ReDim Preserve Tablo_1(cptr_tablo)
        End If
Next
End With
For cptr_tablo = LBound(Tablo) To UBound(Tablo)
    aaa = Tablo(cptr_tablo) & " - " & Tablo_1(cptr_tablo) ' concatene les données
    ListboxVilles.AddItem aaa ' les données sont affichées dans le Listbox
Next
End Sub

Private Sub TextBox1_Change()
     Lettre = UCase(TextBox1.Value)
     Selectionner_communes
End Sub

Public Lettre As String

Sub Selectionner_communes()
    Dim Tcomm(), T_base(), T_out()
    Dim Critere As String
    Dim Nbre As Long, Lig As Long, Cpt As Long
    
'------initialisations
     Range("C5:F37000").Clear
     If Lettre = "" Then GoTo Fin
     Critere = Lettre & "*"
     
    With Sheets("communes")
          'mémorise en RAM les données des communes
          T_comm = Application.Transpose(Range("localite").Value) 'liste des localités
          T_base = Range("base_fr").Value 'liste des codes, départements, zone robien
          'nombre de communes répondant au critere
          Nbre = Application.CountIf(Range("localite"), Critere)
     End With
'-----recherche
     If Nbre = 0 Then GoTo Vide: 'pas de communes répondant au critère
     'mémorise tableau des communes répondant au critère
     ReDim T_out(1 To Nbre, 1 To 4)
     Cpt = 1
     For Lig = 1 To UBound(T_comm)
          If T_comm(Lig) Like Critere Then
               T_out(Cpt, 1) = T_comm(Lig) 'commune
               T_out(Cpt, 2) = T_base(Cpt, 1) 'code commune
               T_out(Cpt, 3) = T_base(Cpt, 2) 'code departement
               T_out(Cpt, 4) = T_base(Cpt, 3) 'zone Robien
               Cpt = Cpt + 1
               If Cpt > Nbre Then Exit For 'sortie si le nbre est atteint
          End If
     Next
     
'------restitution
   Application.ScreenUpdating = False
   With Sheets("Recherche").Range("C5").Resize(Nbre, 4)
     .Value = T_out
     .Borders.Weight = xlThin
     End With
 Exit Sub
 
 '-----gestion erreurs
Vide:
     MsgBox "aucune commune commendant par " & Lettre & " dans la liste ", vbExclamation
Exit Sub

Fin:
End Sub