Erreur d'execution 1004

Bonjour,

Je suis novice en programation (2 jours d'expérience)

Mon objectif est de réaliser un filtre multicritére à partir d'une listbox.

je tape le code suivant :

Public Sub CommandButton1_Click() 

Dim Tablo() 
Dim I As Integer, Indice As Integer 

With Me.ListBox1 
  For I = 0 To .ListCount - 1 
    If .Selected(I) = True Then 
      ReDim Preserve Tablo(Indice) 
      Tablo(Indice) = .List(I) 
      Indice = Indice + 1 
    End If 
  Next I 
End With 
If Indice = 0 Then 
  Range("$B$4:$O$30").AutoFilter Field:=1 
Else 
  Range("$B$4:$O$30").AutoFilter Field:=1, Criteria1:=Tablo, Operator:=xlfiltervalues 
End If 
End Sub

Le probléme que je rencontre est le suivant si je choisi l'opérateur xland le code s'execute mais je ne filtre que 1 seul critére de ma listbox. j'ai donc changé mon opérateur xland par xlfiltervalues mais quand j'exécute j'ai le message d'erreur execution 1004 : "La méthode Autofilter de la classe range a échoué"

Je ne comprend pas pourquoi quelqu'un peut-il m'aider? (j'utilise excel 2002)

Configuration: Windows 7 / Internet Explorer 8.0