Filtre avec plusieurs criteres

Bonjour a tous,

J'ai essaye de mettre en place une macro qui va selectionner des clients dans un tableau en fonction de plusieurs criteres (Veuf", "Celibataire", "Marie")

Malheureusement, seul cette derniere categorie est selectionnee.

Une petite aide serait la bienvenue :

Sub selection1()
Dim wsnormal As Worksheet
Dim plage As Range

Set wsnormal = Workbooks("Classeur1.xlsm").Worksheets("Feuil1")
Set plage = Range(Cells(1, 2), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2))

wsnormal.Range("A1:D13").AutoFilter Field:=2, Criteria1:=Array("Veuf", "Celibataire", "Marie")
wsnormal.Range("A1:D13").AutoFilter Field:=4, Criteria1:="<>X"

End Sub

classeur1.xlsm

Bonjour,
Essaie ainsi.
Cdlt.

wsnormal.Range("$A$1:$D$13").AutoFilter _
            Field:=2, _
            Criteria1:=Array("Veuf", "Celibataire", "Marie"), _
            Operator:=xlFilterValues

Au top. Merci beaucoup, je mets le fichier final pour tout le monde