Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 21/01/2012 par l'agrafe
Range("I21").Select
ActiveCell.FormulaR1C1 = "TRI"
Range("A21:I127").Select
Selection.AutoFilter
Selection.AutoFilter Field:=9, Criteria1:="EFFACER"
Rows("22:108").Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
End Sub