Fonction While VBA

Bonjour tout le monde,

J'aimerai utiliser la fonction "while" mais étant très novice en prog, j'avoue ne pas trouver de solution à mon problème. Je m'explique:

J'ai en colonne A, des dates incrémentées toutes les 15 minutes, j'aimerais écrire une macro dans le but de sectionner toutes les dates de cette colonne étant inférieur à une date de référence.

Pour faire un test, je prends 20 dates de A1 à A20. Ma date de ref est en A23, j'ai donc écrit:
Range("A1").Select
While ActiveCell("<RangeA23")
ActiveCell.Offset(1, 0).Select
Wend
Mon but étant de descendre jusqu'à ce que la date soit supérieure à celle de ref. Une fois cette cellule sélectionnée, j'utiliserais:

ActiveCell.Offset(-1, 0).Select (pour sélectionner la dernière date inférieure à celle de ref)
Range(Selection, Selection.End(xlup)).Select (pour sélectionner toutes les dates inférieures en allant vers le haut)
Selection.Delete Shift:=xlUp (pour les supprimer et remonter les autres dates vers le haut).

Le problème de cette écriture vient de la boucle While qui bloque. Quelqu'un pourrait-il m'expliquer pourquoi et me montrer qu'elle serait l'alternative.

Merci d'avance,
Vincent