Supprimer des cellules vide - Excel

Bonjour à tous !

Je suis à la recherche d'une macro pour un classeur excel qui me supprimerai mes lignes vides. S'il n'y avait que ca, ca irait car la réponse est sur de nombreux forums. MAIS, mes cellules ne sont pas complément vide .. elles contiennent une formule.

Voila la macro que j'ai (lâchement) volé à un internaute, merci à lui :

Sub supprlignesvides()
Dim maplage As Range
Set maplage = Range("a1")
While Range(maplage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False)).Value <> ""
Set maplage = Range(maplage.End(xlDown).Address(rowabsolute:=False, columnabsolute:=False))
Wend
Dim derligne As Long
derligne = maplage.Row
Dim compteur As Long
For compteur = derligne To 1 Step -1
If Range("a" & compteur).Value = "" Then
Rows(compteur).Delete
End If
Next compteur
End Sub

Si quelqu'un pouvait me trouver une solution, ce serait gentil :)

A bientôt !

Cordialement,