Calc Supression de lignes si une cellule est égale à zéro

Bonjour,

Je dois faire faire la même modification sur plusieurs feuilles Calc (une centaine).
J'aurai besoin d'aide pour écrire une macro qui fasse cela.

La modification serait la suivante:
Supprimer toutes les lignes dont une cellule est égale zéro.
Et faire en sorte que la ligne du dessous prenne la place de celle supprimée.

Les cellules testées sont les cellules de la colonne D.

Exemple: Si la cellule D21 est égale à zéro alors supprimer la ligne 21.
Afin d'être plus clair je joins 2 fichiers Calc l'un avant modif, l'autre après.

Merci de votre aide.