Tri sur plage cellules non vides

Bonjour, je cherche le moyen de trier une plage de cellules représentant un classement. Une macro permettrait un tri croissant selon le numéro des équipes, une autre pour un tri des équipes selon une colonne de total des points. Je parviens à réaliser la première mais la seconde pose problème puisque que les cellules vides mais qui contiennent des formules apparaissent en premier. Comment faire une sélection des cellules non vides et les trier ensuite. A force de chercher sur le net, mon esprit s'embrouille, je me noie! Je joins un fichier pour illustrer.

Merci pour vos conseils.

Bonjour,

Sub Tri(col As String)
    Dim n%, i%, ord%
    With ActiveSheet
        With .Range("C1")
            Do While .Offset(n + 1) <> ""
                n = n + 1
            Loop
        End With
        If n = 0 Then Exit Sub
        ord = IIf(col = "B", xlAscending, xlDescending)
        .Range("B2").Resize(n, 11).Sort key1:=.Range(col & 2), order1:=ord, Header:=xlNo
    End With
End Sub

Sub triparnumequipe()
    Tri "B"
End Sub

Sub tripartotal()
    Tri "L"
End Sub

Merci MFerrand, c'est du rapide! J'ai pas tout compris de cette macro mais j'ai pu l'adapter facilement à mon fichier d'origine et ça fonctionne parfaitement.

A bientôt....