Sub test_C()
Application.ScreenUpdating = False
trier_COL Range("B3"), xlDescending
trier_COL Range("B22"), xlDescending
End Sub
Sub Test_D()
Application.ScreenUpdating = False
trier_COL Range("B3"), xlAscending
trier_COL Range("B22"), xlAscending
End Sub
Private Sub trier_COL(DebutT As Range, sens As XlSortOrder)
Dim p As Range, c As Range, l&
Set p = Rows(DebutT.CurrentRegion.Item(1).Row).SpecialCells(xlCellTypeConstants, 2)
l = DebutT.CurrentRegion.Rows.Count
For Each c In p
c.Resize(l).Sort key1:=c.Cells(1), Order1:=sens, Header:=xlYes, Orientation:=xlTopToBottom
Next
End Sub