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