Sub footligue1()
'
' footligue1 Macro
' Macro enregistrée le 08/07/2010 par Giorgios
'
' Touche de raccourci du clavier: Ctrl+w
'
Sheets("L1").Select
Range("b1:k21").Select
Selection.Sort Key1:=Range("d2"), Order1:=xlDescending, Key2:=Range("k2") _
, Order2:=xlDescending, Key3:=Range("i2"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("b1").Select
End Sub