Sub Macro1()
[COLOR="Green"]'
' Macro16 Macro
' Macro enregistrée le 08/05/2009 par VBACrumble
[/COLOR]
Application.ScreenUpdating = False
Range("A12:F172").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("tri1"), CopyToRange:=Range("H12"), Unique:=False
ActiveWindow.SmallScroll ToRight:=4
Range("A12:F172").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("tri2"), CopyToRange:=Range("O12"), Unique:=False
Range("A12:F172").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("tri3"), CopyToRange:=Range("V12"), Unique:=False
Range("A12:F172").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("tri4"), CopyToRange:=Range("AC12"), Unique:=False
Range("H12:M48").Select
Selection.Sort Key1:=Range("L13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("O12:T67").Select
Selection.Sort Key1:=Range("S13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("V12:AA33").Select
Selection.Sort Key1:=Range("Z13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll ToRight:=7
Range("AC12:AH172").Select
Selection.Sort Key1:=Range("AG13"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollColumn = 1
Range("A12").Select
Application.ScreenUpdating = True
End Sub