VBA Excel supprimer ligne si cellule vide dans colonne

Bonjour à tous premier post sur le forum !

J'ai crée un petit programme pour automatiser certains fichiers au boulot et une fois que la macro fait tout ses calculs et autres opérations elle arrive à une étape ou elle doit supprimer les lignes XYZ si les cellules (xyz ; P) sont vides (et ensuite la macro continue de tourner pour de nouvelles opérations)

Au début j'ai utilisé la ligne suivante :

Range("P:P").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Tout fonctionnait parfaitement bien puisque dans ma feuille de résultat il y avait bien quelques cellules vides dans la colonne P, le programme supprimait bien les lignes et continuait de tourner ensuite.

Or dans certaines conditions il se peut que ma feuille de résultat n'est pas de cellules vides. Dans ces cas là, j'ai le droit à une erreur :

J'en conclus que la ligne de code ne fonctionne que s'il existe des cellules vides...

J'ai essayé de contourner le problème par les lignes suivantes :

For Each cell In feuilleresultat.Columns(16)
If IsEmpty(cell) = True Then Range("P:P").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next cell

Mais idem, même erreur.

Pouvez vous me guider? :)

Merci beaucoup !

Antoine

Finalement en bidouillant j'ai trouvé !

J'ai utilisé :

Dim x As Integer
For x = Cells(65256, 16).End(xlUp).Row To 1 Step -1
If Cells(x, 16).Value = "" Then Cells(x, 16).EntireRow.Delete
Next x

A+