Code vba pour supprimer les lignes vides

Sub effacelignes()
    With Worksheets("feuil2")
        'derniere ligne utilisee plage H:R
        DerLig = .Range("H:R").Find("*", , , , xlByRows, xlPrevious).Row
        
        For x = DerLig To 1 Step -1
            Cel_vide = Application.WorksheetFunction.CountBlank(Worksheets("feuil2").Range("H" & x & ":R" & x))
            If Cel_vide = 11 Then
                .Range("H" & x & ":R" & x).Cells.Delete
            End If
        Next x
    End With
End Sub