VBA test de ligne vide et suppression

Bonjour,

J'ai pas mal parcouru le forum et je n'ai pas trouver la réponse a ma question.

Je souhaite supprimer les lignes qui sont entierement vide d'un tableau. Ma macro marche mais affiche ce message d'erreur et je ne comprend pas pourquoi?

Run-time error '1004':
Application-defined or object-defined error

Voici la dite macro:
sub supligne
Dim lastline,firstline as integer

'trouve la derniere ligne du tableau
lastline = ActiveSheet.UsedRange.Rows.Count


'trouve la premiere ligne du tableau de donnée
For a = 1 To lastline Step 1
If Cells(a, 1).Value = "Priority" Then
firstline = a + 1
End If
Next a

'Supprime les lignes vide

For r = lastline To fistline Step -1
If Application.CountA(Rows(r)) = Empty Then Rows(r).EntireRow.Delete

Next r
end sub

J'ai essayé de changer le empty par "" mais cela marche encore moins bien.

Quelqu'un peux me dire ou je ne suis planté?

Merci beaucoup

PS: désoler si je ne mets pas tout les accents mais je travail acctuelement avec un clavier qwerty.