Tri de données

Sub Tri_2()
    Application.ScreenUpdating = False
    DerLig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Set d = CreateObject("Scripting.Dictionary")
    Set x = CreateObject("Scripting.Dictionary")

    For Each C In Range(Cells(1, 1), Cells(DerLig, 2))
        If C = "" Then m = "ZZZ" Else m = C
        d(m) = ""
    Next C
    If d.Count > 0 Then
        Columns("K:L").Clear
        [K1].Resize(d.Count, 1) = Application.Transpose(d.keys)
        Columns("K:K").Replace What:="ZZZ", Replacement:="", LookAt:=xlPart
        Range("K1:K" & d.Count).Select
        Selection.Sort key1:=[K1], Order1:=xlAscending, Header:=xlNo
    End If
End Sub