Bonjour
essaie
Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1, Criteria1:=ListBox1.Value
Selection.AutoFilter Field:=2, Criteria1:=ListBox2.Value
Selection.AutoFilter Field:=3, Criteria1:=ListBox3.Value
'A continuer
Unload Me
End Sub
A+