Message d'erreur lors de la suppression de nombreuses lignes

Bonjour,

Je travaille sur un gros tableau d'environ 30 000 lignes et qui prend 10Mo environ.
Il y a de très nombreuses lignes seulement partiellement complètes dans le sens ou certaines colonnes sont important mais dans au moins 2 cas sur 3 elles sont vides. Du coup j'ai besoin de supprimer ces lignes car elles sont pour moi inutiles.
Pour cela j'ai fait une boucle ou je vérifie si ces colonnes sont vides ou non, et si tel est le cas je supprime la ligne entière.
Malheureusement je reçois le message d'erreur suivant :
"Excel ne peut pas terminer cette tâche avec les ressources disponibles.
Sélectionnez moins de données ou fermez des applications"

Quand j'essaie la boucle seulement sur les 200 premières lignes par exemple alors cela marche très bien.
J'ai vérifié ma corbeille peut contenir dans les 100Mo donc je ne m'explique pas le problème. Pouvez-vous m'aider ?

je vous transmet le code :


' taille est le nombre de ligne de mon tableau
s=taille
' mois un entier entre 1 et 12
While s > 3
b = False
for h = mois To 12 'il y a plusieurs controles à faire selon la valeur de h c'est pk j'ia fait cette boucle
If Cells(s, 8 + mois + (h - mois) * 4) <> "" Then
b = True
Exit For
End If
Next
If b = False Then
Sheets("Data").Rows(s).EntireRow.Delete Shift:=xlUp
End If
s = s - 1
Wend

peut-être que ma méthode n'est pas la plus simple, si vous avez mieux et que ça marche je suis rpenneur.
merci beaucoup pour votre aide!