filtrer un tableau par le biais d'une liste box VBA

Bonjour,

Je souhaite pouvoir filtrer un tableau (qui en réalité est une table liée depuis ACCESS), via une ou plusieurs liste box.

Voici ce que j'ai essayé mais ca ne marche pas :

Sub filtrer()

Dim Critere_1 As String
Critere_1 = Sheets("synthèse").Range("W2").Value
ActiveSheet.ListObjects("Tableau_vulnérabilités.accdb").Range.AutoFilter Field _
:=1, Criteria1:=Critere_1

End Sub