Mettre les cases vides en haut

Sub Macro1()
' Macro Complété par Excel-lent

[COLOR="Blue"]Dim NbLigneVide As Long[/COLOR]
    
    Range("B137:H148").Select
    Selection.Sort Key1:=Range("H137"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

[COLOR="Blue"]    NbLigneVide = Application.WorksheetFunction.CountBlank(Range("H137:H148")) - 1
    Range("B" & 148 - NbLigneVide & ":H148").Cut
    Range("B137").Insert Shift:=xlDown[/COLOR]

End Sub