Voilà, c'est très facile ave l'enregistreur de macros
Sub CroissantDecroissant()
'
' CroissantDecroissant Macro
' Macro enregistrée le 01/02/2003 par Moa
'
'
Range("A5:A12").Select
Selection.Copy
Range("C5").Select
Range("E5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C5").Select
Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("E5").Select
Selection.Sort Key1:=Range("E5"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Voilà
@ +
moa