Filtre "ordonné".

=SI(LIGNE(1:1)<=SOMME(SI(zone<>0;1/NB.SI(zone;zone)));INDIRECT(ADRESSE(MIN(SI((NB.SI(H$7:H7;zone)=0)*(zone<>0);LIGNE(zone)));MOD(MIN(SI((NB.SI(H$7:H7;zone)=0)*(zone<>0);COLONNE(zone)+LIGNE(zone)*10^5));10*5)));"")

Sub Tri()
Dim dico As Object, Pl(), c As Variant
Pl = Range("B8").CurrentRegion.Value
Set dico = CreateObject("scripting.dictionary")
For Each c In Pl
    If c <> 0 Then dico(c) = dico(c)
Next c
[H8].Resize(dico.Count) = Application.Transpose(dico.keys)
End Sub