Avec l'enregistreur c'est OK, mais la longueur de la colonne sera variable
Code :
Sub Macro1()
'
[E2:E87].Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _...