Problème sur filtre

Private Sub CommandButton1_Click()

ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=1, Criteria1:=ComboBox1.Value
ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=2, Criteria1:=ComboBox2.Value
ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=3, Criteria1:=ComboBox3.Value
ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=4, Criteria1:=ComboBox4.Value
ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=5, Criteria1:=ComboBox5.Value

Unload Me

End Sub

Private Sub UserForm_Initialize()

ActiveSheet.Range("$A$3:$e$200").AutoFilter
    Set dico = CreateObject("Scripting.dictionary")
    Set dico1 = CreateObject("Scripting.dictionary")
    Set dico2 = CreateObject("Scripting.dictionary")
    Set dico3 = CreateObject("Scripting.dictionary")
    Set dico4 = CreateObject("Scripting.dictionary")
    
For n = 2 To Range("e65536").End(xlUp).Row

a = Range("a" & n)
b = Range("b" & n)
c = Range("c" & n)
d = Range("d" & n)
e = Range("e" & n)

dico(a) = 1
dico1(b) = 1
dico2(c) = 1
dico3(d) = 1
dico4(e) = 1

Next
ComboBox1.List = dico.keys
ComboBox2.List = dico1.keys
ComboBox3.List = dico2.keys
ComboBox4.List = dico3.keys
ComboBox5.List = dico4.keys

End Sub

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > -1 Then ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=1, Criteria1:=ComboBox1.Value
If ComboBox2.ListIndex > -1 Then ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=2, Criteria1:=ComboBox2.Value
If ComboBox3.ListIndex > -1 Then ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=3, Criteria1:=ComboBox3.Value
If ComboBox4.ListIndex > -1 Then ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=4, Criteria1:=ComboBox4.Value
If ComboBox5.ListIndex > -1 Then ActiveSheet.Range("$A$3:$e$200").AutoFilter Field:=5, Criteria1:=ComboBox5.Value

'Unload Me

End Sub

Private Sub CommandButton2_Click()
Dim I As Byte
  For I = 1 To 5
    Me.Controls("ComboBox" & I).ListIndex = -1
  Next I
  On Error Resume Next
  Sheets("bras").ShowAllData

End Sub

Private Sub UserForm_Initialize()
Dim Lg As Long
Dim I As Long
Dim J As Integer

    ActiveSheet.Range("$A$3:$e$200").AutoFilter

  Lg = Range("e65536").End(xlUp).Row
  For J = 1 To 5
    For I = 4 To Lg
      Me.Controls("ComboBox" & J) = Cells(I, J)
      If Me.Controls("ComboBox" & J).ListIndex = -1 Then
        Me.Controls("ComboBox" & J).AddItem Cells(I, J)
      End If
    Next I
    Me.Controls("ComboBox" & J).ListIndex = -1
  Next J
  


End Sub