VBA find valeurs répondant à une condition d'inégalité

bonjour,

J'ai un textbox sur un usf qui permet de saisir un montant. Je souhaite ensuite rechercher toutes les valeurs qui se situent dans une plage donnée et répondant au critère activecell > montant. Le problème que je rencontre est le suivant : je n'arrive pas à parcourir la plage de données en respectant un arrêt sur chacune des cellules répondant au critère de supériorité. l'algo. fonctionne si je place un msgbox dans la boucle de recherche des cellules répondant au critère. Par contre en l'absence du msgbox l'algo. s'arrête sur la dernière cellule répondant au critère. je précise que l'usf. est déclarer en mode non modal : usf.show 0. Afin de permettre une modification du contenu de la cellule sélectionnée.
En vous remerciant d'avance pour votre aide.