VBA - Copier ligne si cellule définie répond à une condition

Bonjour à tous,

Je suis débutant en VBA et je ne trouve vraiment pas de solution à mon problème.

Je souhaite déplacer des lignes si une des cellules s'y trouvant est remplie. (voir fichier joint, désolé pour la présentation mais je n'ai fait aucune mise en forme)

Je m'explique :

Si la cellule D120 est remplie, je souhaite copier la ligne entière (donc 120) pour l'insérer entre la ligne 3 et 4.

Je souhaite en faire de même pour les lignes D121 à D124 (sachant que dans l'exemple elles sont vides donc ne seraient pas déplacées en haut)

Donc l'idéal serait de tout déplacer en bloc en fonction de chaque cellules présente sur chaque ligne.

Je vous remercie d'avance.

Stéphane.