Supprimer lignes vides pour plusieurs feuilles

Bonjour j'ai essayer toute la journée pour trouver la solution et finalement impossible.

J'aimerai en faite supprimer les lignes vides (je sais le faire sur 1 feuille) mais faire pour plusieurs feuilles en même temps, Je n'y arrive pas du tout.

ex de mon fichier : dans feuilles(matchs Argentine, Autriche et Belgique) j'aimerai supprimer les lignes qui sont vides.

Pouvez vous m'aider svp

Bonjour ludoak,

Voici un code a essayer:

Sub erace_rows_blank()
For Each List_Sh In Sheets
    On Error Resume Next
    List_Sh.Range("a1:a65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Resume
Next
End Sub