Je cherche à filtrer une plage de cellules en appliquant un critere sur une colonne dont les valeurs doivent être égales à l'une des valeurs de la listbox.
J'ai essayé avec une boucle sur les valeurs de la listbox mais le filtre ne retient que la dernière valeur !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
    Dim MaPlage As Range, PlageCellule As Range, periode As String
    Set MaPlage = ActiveSheet.Range("A8:cr" & Range("c65000").End(xlUp).Row)
    For i = 0 To j - 1
        If ListBox1.Selected(i) = True Then
            indic = ListBox1.List(i)
            MaPlage.AutoFilter Field:=93, Criteria1:=indic, Operator:=xlAnd
        End If
    Next i