Sub Macro1a()
[COLOR=SeaGreen]' xlAscending=1; xlDescending=2
'colonnes: d,e,f,l,m[/COLOR]
Dim i&
For i = 1 To 13
Select Case i
Case 4 To 6
Columns(i).Sort _
Key1:=Cells(1, i), _
Order1:=1, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
Case 13
Columns(i).Sort _
Key1:=Cells(1, i), _
Order1:=2, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Select
Next i
End Sub