Selection de plages de lignes discontinues pour suppression

For i = 26 To 3 Step -1

Sub test_supprimer_ligne()
Dim li As Range 'déclare la variable li (LIgnes à effacer)
 
For i = 3 To 26
    If Cells(i, 2) = "" Then
        If li Is Nothing Then 'si la plage li est vide
            Set li = Rows(i) 'li devient la ligne de i
        Else 'sinon
            Set li = Application.Union(li, Rows(i)) 'li devient l'union de li et de la ligne i
        End If 'fin de la condition
    End If
Next i
li.Delete
End Sub

Option Explicit
Sub test()
Dim i As Long, x As Range
For i = Range("B65536").End(xlUp).Row To 1 Step -1
    If Cells(i, 2) = "" Then If x Is Nothing Then Set x = Cells(i, 2) _
        Else Set x = Union(x, Cells(i, 2))
Next i
'pour supprimer les cellules
x.Delete xlUp
'pour supprimer les lignes
x.EntireRow.Delete xlUp
End Sub