Problème code

Bonjour,

Je rencontre un petit problème dans l'exécution de la macro écrite ci-après.
Toutes les lignes comprenant "un espace " ne sont pas supprimées, à peu près une ligne sur 2 le sont. Je crois avoir déjà lu une solution pour ce type de problème mais pas moyen de remettre la main dessus. La manière dont la commande est écrite n'est peut-être pas la bonne.

For Each Cel In Range("E67:E" & Range("E65536").End(xlUp).Row)

If Cel.Value = " " Then
li = Cel.Row
Cel.EntireRow.Delete
Cells(li + 20, 1).EntireRow.Insert Shift:=xlDown
End If
Next Cel

Merci d'avance pour votre aide.