validation TxtBox + Filtre

[egman]

Bonjour le Forum

Autre post...autre souci
Je me sert d'une TxtBox dans un Userform que je valide par un bouton pour faire une recherche sur un reseau.(Sheets("AS10_ET"))
C'est lors du filtre qu'il y'a un petit hic...

Private Sub CommandButton10_Click()
Sheets("AS10_ET").Range("B1").Value = TextBox1.Value
Call Copie_filtre
End Sub
*******************************
Private Sub Copie_filtre()
Dim NbLg As Long
Dim LgDer As Long
Dim Critere As String
Sheets("AS10_ET").Select
  Critere = "B000*"

  With Sheets("AS10_ET")
    LgDer = .Range("E65536").End(xlUp).Row
    .Range("E1:E" & LgDer).AutoFilter Field:=5, Criteria1:=Critere

    NbLg = WorksheetFunction.Subtotal(3, Columns(1)) - 1
    If NbLg > 0 Then
      .Range("E4:E" & LgDer).SpecialCells(xlCellTypeVisible).Copy Sheets("AS10_ET").Range("H1")
    End If
    .ShowAllData
  End With
Range("B1").Activate
Sheets("Planning").Select
End Sub

Petit probleme pour récupérer mes infos du réseau (B000*...) sur ma feuille de base (Planning) il faut que je valide 2 fois mon de validation de TextBox...?
Comme si il s'arretait en milieu de macro et en fin de macro si je demande à revenir sur ma Planning il indique une erreur. ?

D'avance MERCI pour votre aide car je ne comprend plus trop bien.

A+