Sub Macro2_Avec_Filtre_Elabore()
Dim c_rit$
Dim a As Worksheet, b As Worksheet, plage As Range
c_rit = "=AND(RC[-2]<>""Satisfaisant"",RC[-2]<>""X"",RC[-2]<>""T"",RC[-2]<>""Z"")"
Set a = Sheets("Données"): Set b = Sheets("Result")
b.Columns("A:B").Clear
With a
Set plage = .[A1].Resize(.[A65536].End(xlUp).Row, 3)
.[E2].FormulaR1C1 = c_rit
plage.AdvancedFilter xlFilterInPlace, .Range("E1:E2"), False
Set plage = Intersect(.Range("A:B"), plage.SpecialCells(12))
plage.Copy b.[A1]
.ShowAllData
.[E2] = Empty
End With
Set a = Nothing
Set b = Nothing
Set plage = Nothing
End Sub