Ajouter une 4éme et/ou 5éme condition à ma macro

Bonjour à toutes et tous,

Je voudrai ajouter une 4éme voire 5éme KEY à cette macro

et je n'y arrive pas car ce n'est pas prise en compte quand je le fais

Quelqu'un pourrait-il m'aider ?



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