Sub Filtre()
Dim a, plage As Range
a = Array(1, 2, 3, 4) 'valeurs à exclure
Set plage = Intersect([A:A], ActiveSheet.UsedRange)
ThisWorkbook.Names.Add "Tableau", a 'nom défini
plage(2, 256).FormulaR1C1 = "=ISERROR(MATCH(RC[-255],Tableau,0))"
plage.AdvancedFilter xlFilterInPlace, plage(1, 256).Resize(2)
[IV:IV].ClearContents
End Sub
Sub AfficheTout()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub