Filtre dans Excel sous VBA et cases vides

Bonjour,

J'utilise une macro pour faire un filtre sur les cellules A4 à AD23 (je veux mettre en ordre alphabétique la colonne B5:B23). J'ai utilisé une macro d'enregistrement car je ne connais pas vraiment le VBA. Lorsque je le fais manuellement, les noms sont placés en ordre alphabétique, alors que les cases vides sont en dessous des noms.

Cependant, lorsque j'attribue ma macro à un bouton (présent sur une autre feuille excel), la macro met les cases vides en haut de la liste, puis les noms suivent en ordre alphabétique en-dessous.

Y a-t-il moyen de forcer la macro dans VBA pour que les cases vides soient placées après les noms que je filtre?

Voici mon code:

Sub alphab() 

'Mettre en ordre alphabétique les feuilles "p1" à "p30" 
    ActiveWorkbook.Worksheets("p1").Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("p1").Sort.SortFields.Add Key:=Range("B5:B23"), _ 
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
    With ActiveWorkbook.Worksheets("p1").Sort 
        .SetRange Range("A4:AD23") 
        .Header = xlYes 
        .MatchCase = False 
        .Orientation = xlTopToBottom 
        .SortMethod = xlPinYin 
        .Apply 
    End With 
    Sheets("p1").Select 
    Range("A1").Select 

    Sheets("Saison").Select 
    Range("A1").Select 
End Sub 

Merci,
Olivier