Macro:rapatriement de données selon une condition

Sub Macro1()
Dim plage As Range
With Sheets("Données")
  .AutoFilterMode = False
  Set plage = .Range("A1:C" & .Range("A65536").End(xlUp).Row)
  plage.AutoFilter Field:=3, Criteria1:="<>Satisfaisant"
  Set plage = Intersect(.Range("A:B"), plage.SpecialCells(xlVisible))
  With Sheets("Result")
    .Range("A:B").Clear
    plage.Copy .Range("A1")
  End With
  plage.AutoFilter
End With
End Sub

Sub Macro1()
Dim plage As Range
With Sheets("Données")
  .AutoFilterMode = False
  Set plage = .Range([A1], .[C65536].End(xlUp))
    plage.AutoFilter 3, "<>Satisfaisant"
  Set plage = _
        Intersect(.Range("A:B"), plage.SpecialCells(12))
    plage.Copy Sheets("Result").[A1]
    plage.AutoFilter
End With
End Sub

.Range("A:B").Clear

Sub Macro1_As_Job75_Said()
Dim plage As Range
Sheets("Result").Columns("A:B").Clear
With Sheets("Données")
  .AutoFilterMode = False
  Set plage = .[A1].Resize(.[C65536].End(xlUp).Row, 3)
    plage.AutoFilter 3, "<>Satisfaisant"
  Set plage = _
        Intersect(.Range("A:B"), plage.SpecialCells(12))
    plage.Copy Sheets("Result").[A1]
    plage.AutoFilter
End With
End Sub

Sub Macro1_commentee()
[COLOR=SeaGreen]'Déclarations des variables[/COLOR]
Dim a As Worksheet, b As Worksheet
Dim plage As Range
[COLOR=SeaGreen]'définition des variables, ici les feuilles[/COLOR]
Set a = Sheets("Données"): Set b = Sheets("Result")
[COLOR=SeaGreen]'on efface les colonnes A et B de la feuille Result[/COLOR]
b.Columns("A:B").Clear
[COLOR=SeaGreen]'on applique le filtre sur la feuille Données[/COLOR]
With a
  .AutoFilterMode = False
  Set plage = .[A1].Resize(.[A65536].End(xlUp).Row, 3)
    plage.AutoFilter 3, "<>Satisfaisant"
    [COLOR=SeaGreen]'On définit la plage de cellules à copier[/COLOR]
  Set plage = _
        Intersect(.Range("A:B"), plage.SpecialCells(12))
       [COLOR=SeaGreen]'on copie le résultat du filtre en feuille Result[/COLOR]
    plage.Copy b.[A1]
   [COLOR=SeaGreen] 'On ôte le filtre automatique sur la feuille Données[/COLOR]
    plage.AutoFilter
End With
[COLOR=SeaGreen]'On "vide" les variables[/COLOR]
Set a = Nothing
Set b = Nothing
Set plage = Nothing
End Sub

Sub Macro1_As_Job75_[COLOR="Red"]Really[/COLOR]_Said()
Dim plage As Range
Sheets("Result").Columns("A:B").Clear
With Sheets("Données")
  .AutoFilterMode = False
  Set plage = .[A1].Resize(.[[COLOR="red"]A65536[/COLOR]].End(xlUp).Row, 3)
    plage.AutoFilter 3, "<>Satisfaisant"
  Set plage = _
        Intersect(.Range("A:B"), plage.SpecialCells(12))
    plage.Copy Sheets("Result").[A1]
    plage.AutoFilter
End With
End Sub

plage.AutoFilter 3, "<>Satisfaisant", xlAnd, "<>X"