Supprimer ligne en utilisant Arrays

Bonjour,

s"il vous plait je souhaite supprimer les lignes la ou ma colonne "fonction"comporte les valuers néant , chomage et incapacité,

ceci est juste un exemple simplifié sachant que dans la réalité j'ai 60 mots

je souhaite supprimer la ligne correspondant à la colonne ou c'est écrit les valeurs suivantes: néant , chômage et incapacité, en utilisant un Array

ci joint un exemple

Merci beaucoup pour votre réactivité

Bonjour,

Essayer :

Sub Supprimer()
    Dim n%, flt
    flt = Split("NEANT chomage incapacité")
    With Worksheets("Feuil1")
        n = .Cells(.Rows.Count, 4).End(xlUp).Row
        .Range("A3:D3").AutoFilter 4, flt, xlFilterValues
        .Range("D4:D" & n).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .Range("A3:D3").AutoFilter
    End With
End Sub

oui ça marche!!!

Merci beaucoup