Bonjour, Mon code ne fonctionne pas ! Au secours svp!!!

Private Sub UserForm_Initialize()
ComboBox1.List = [AN].Value
ComboBox2.List = [SEM].Value
'ComboBox3.List = [SEM].Value
'ComboBox4.List = [SEM].Value
'ComboBox5.List = [SEM].Value
ComboBox6.List = [ACT].Value
ComboBox7.List = [CLTS].Value
ComboBox8.List = [AFF].Value

ListBox1.ColumnHeads = True
ListBox1.RowSource = "LISTES!d2:d54"

End Sub

Private Sub CommandButton8_Click()

With Sheets("SAISIES")

Sheets("SAISIES").Select

On Error Resume Next
For Each Sh In Sheets
    Sh.ShowAllData
Next Sh


If ComboBox1 <> "" Then
        .Range("$A$11:$N$4250").AutoFilter Field:=2, Criteria1:=Array(ComboBox1.Text), Operator:=xlFilterValues
          End If

If ComboBox2 <> "" Then
        .Range("$A$11:$N$4250").AutoFilter Field:=3, Criteria1:=Array(ComboBox2.Text), Operator:=xlFilterValues
          End If

'If ComboBox3 <> "" Then
        '.Range("$A$11:$N$4250").AutoFilter Field:=4, Criteria1:=Array(ComboBox3.Text), Operator:=xlFilterValues
        'ActiveSheet.Range("$A$11:$N$4250").AutoFilter Field:=14, Criteria1:="<>"

If ComboBox6 <> "" Then
        .Range("$A$11:$N$4250").AutoFilter Field:=5, Criteria1:=Array(ComboBox6.Text), Operator:=xlFilterValues
          End If

If ComboBox7 <> "" Then
        .Range("$A$11:$N$4250").AutoFilter Field:=7, Criteria1:=Array(ComboBox7.Text), Operator:=xlFilterValues
          End If

If ComboBox8 <> "" Then
        .Range("$A$1:$N$4250").AutoFilter Field:=8, Criteria1:=Array(ComboBox8.Text), Operator:=xlFilterValues
          End If


'CETTE COMMANDE NE FONTIONNE PAS !!!!!
    If ListBox1 <> "" Then
        .Range("$A$11:$N$4250").AutoFilter Field:=3, Criteria1:=Array(ListBox1.List), Operator:=xlFilterValues
          End If

End With


Application.GoTo Range("A1"), True
    Range("E10").Select

Application.ScreenUpdating = True

ActiveWorkbook.Save
End Sub

• une listbox (ListBox1)
• 3 CommandButton (CommandButton1, CommandButton2, CommandButton3)

Option Explicit

Private Sub CommandButton1_Click()
 MsgBox ListBox1
End Sub

Private Sub CommandButton2_Click()
 MsgBox ListBox1.ListIndex
End Sub

Private Sub CommandButton3_Click()
 MsgBox ListBox1.List(ListBox1.ListIndex)
End Sub

Private Sub UserForm_Initialize()
Dim i&
For i = 1 To 50
 ListBox1.AddItem "Liste " & i
Next
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub