[Excel]VBA pour supprimer des lignes vides

Je recherche un programme VBA pour supprimer des lignes vides dans une feuille de calcul. Cette feuille contient que des formules qui renvoient des données. J’ai cherché sur le forum ce qui pouvait m’interesser et tout ce que j’ai ne marche pas. J’ai cru que c’etait du au faite que les cellules avaient les formules. Donc j’ai copier et coller dans une autre feiulle en collant que les valeurs. Et la le programme ne marche toujours pas. Alors que si je rentre du texte dans une autre feuille comme ca, le programme marche. Voila le programme que j’ai trouvé

Sub DeleteEmptyRows()
Dim LastRow As Long
Dim R As Long

If WorksheetFunction.CountA(Cells) = 0 Then
MsgBox "Feuille vide !"
Exit Sub
End If

With ActiveSheet.UsedRange
LastRow = .Cells(.Cells.Count).Row
End With

For R = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(R)) = 0 Then
Rows(R).Delete
End If
Next R
End Sub

Je precise juste que ma feuille contient 7000 lignes de valeurs (texte, numerique…) mais une seule colonne.

Voila si quelqu'un pouvait m’aider, je lui en serais tres reconnaissant !!!