Erreur '1004' Méthode autofilter de la classe range a échoué

Private Sub TextBox_Immat_Change()
Application.ScreenUpdating = False
'Dim filtre As Variant
filtre = TextBox_Immat.Text
    ActiveSheet.Range("$B$5:$Y$6000").AutoFilter Field:=10, Criteria1:="=" & filtre & "*" _
        , Operator:=xlAnd
Application.ScreenUpdating = True

   ActiveWindow.SmallScroll Down:=-500

End Sub

ActiveSheet.Range("$B$5:$Y$6000").AutoFilter Field:=10, Criteria1:="=" & filtre & "*" _
        , Operator:=xlAnd