VBA Excel : Suppression de cellule

Bonjour tout le monde,
j'aimerais, au cours d'une macro, scanner un tableau de deux colonnes, et supprimer la ligne entière si une des deux cellules de cette ligne est vide. Je sais, pour l'instant rien de très compliqué. Mais en fait, toutes ces cellules contiennent des formules, et le bon vieux

For z = 2 To Derlig
If Cells(z, 1).Value = 0 Then
Rows(z).Delete Shift:=xlUp
End If

If Cells(z, 2).Value = "" Then
Rows(z).Delete Shift:=xlUp
End If

Next z

ne marche pas. En fait, j'aimerais que la macro supprime la ligne si rien n'apparaît dans la cellule.
Dans chaque cellule, il y a une fonction du type :
=SI(CHERCHE("p";SUPPRESPACE(A31))>5;"";SUPPRESPACE(SUBSTITUE(SUBSTITUE(A31;"<permission name=";"");" />";"")))

Merci d'avance !