Remonter le contenu de cellules pleines dans une plage

Bonjour,

Je cherche, dans une plage avec cellules vides et pleines, à remonter le contenu des cellules pleines de façon à ce quelles remplissent la 1ère cellule vide à partir de la 1ère ligne, sans faire de tri par ordre croissant ou non, et sans supprimer des lignes car elles contiennent des données hors de la plage.

Par exemple :
Dans la plage A1:B10 les cellules A3 et B3, A10 et B10 sont pleines, les autres vides.
Alors le contenu des cellules A3 et B3 se retrouvent en A1 et B1, A10 et B10 en A2 et B2, les autres sont vides.

Je n'ai pu trouver de solution. Une macro VBA ?

D'avance merci.