bonjour à tous, je repasse par là pour vous dire que j'ai finalement réussi à faire ce que je voulais à savoir trier une feuille excel avec une listbox.
Je vous met la solution sachant qu'il ne faut pas oublier de changer les propriétés de la listbox pour autoriser le multiselect.
Dim tableau(1 To 20)
nb = ListBox1.ListCount
j = 1
For i = 0 To nb - 1
If ListBox1.Selected(i) Then
tableau(j) = ListBox1.List(i)
j = j + 1
End If
Next i
If j <> 1 Then
Worksheets("Feuil1" ).Range("$A$1:$DJ$500000" ).AutoFilter Field:=1, Criteria1:=tableau, Operator:=xlFilterValues
Else
Worksheets("Feuil1" ).Range("$A$1:$DJ$500000" ).AutoFilter Field:=1
End If