Supprimer une ligne vide seulement si elle est precedee d'une autre ligne vide

Sub SupLigne()
  Dim Lig As Long, DLig As Long
  ' Avec la feuille
  With Sheets("NomDeLaFeuille")
    ' Récupérer le numéro de la dernière ligne remplie
    DLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Première est à renseigner
    For Lig = DLig To Première Step -1
      ' Vérifier le nombre de valeur de la ligne, si = 0 = vide
      If Application.CountA(Lig) = 0 And Application.CountA(Lig - 1) = 0 Then
        .Rows(Lig).Delete
      End If
    Next Lig
  End With
End Sub

Sub test()
Dim a As Long
For a = 2 To Split(UsedRange.Address, "$")(UBound(Split(UsedRange.Address, "$")))
If Application.CountA(Rows(a)) = 0 And Application.CountA(Rows(a - 1)) = 0 Then
Rows(a).Delete
End If
Next
End Sub

Sub SupprimerLignes()
Dim plage As Range, col%
Application.ScreenUpdating = False
Set plage = ActiveSheet.UsedRange
col = plage.Columns.Count + 1
plage(2, col).FormulaR1C1 = "=COUNTA(RC1:R[1]C[-1])=0"
plage.AdvancedFilter xlFilterInPlace, plage(1, col).Resize(2)
plage.Offset(1).SpecialCells(xlCellTypeVisible).Delete xlUp
plage.AdvancedFilter xlFilterInPlace, ""
plage(2, col) = ""
End Sub

Sub SupprimerLignes()
Dim plage As Range, col%
Application.ScreenUpdating = False
Set plage = ActiveSheet.UsedRange
col = plage.Columns.Count + 1
plage.Columns(col).FormulaR1C1 = "=COUNTA(RC1:R[1]C[-1])=0"
plage.Columns(col) = plage.Columns(col).Value 'uniquement les valeurs
plage.Resize(, col).Sort plage(1, col), xlAscending 'tri
plage.Columns(col).ClearContents
End Sub