Voilà Pièce jointe 14855. Je ne sais pas combien de temps il m'a fallu pour le faire et le tester mais "pas longtemps" ;)
A+
Edit
Pour le tester, comme tu n'as qu'une seule variable, elle reste mémorisée. Ajoute
en tête de macro OuvrirCode:quitter = false
Avec pleins de variables, pas de pb.