Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 02/12/2010 par Lequet17449g
'
'
Range("A2").Select
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=7
Selection.AutoFilter Field:=16, Criteria1:="="
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A2:P62").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/12/2010 par Lequet17449g
'
'
ActiveWindow.SmallScroll ToRight:=7
Selection.AutoFilter Field:=16
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A2").Select
Selection.AutoFilter
End Sub