[bhbh]

Re-,
une solution quelque peu orthodoxe...

Dans le UserForm_Activate, tu rajoutes ceci :

            
.....
DoEvents
If Fin Then Exit Sub
.....

Et dans le module 1, tu rajoutes cette déclaration :

Option Explicit
Public Fin As Boolean

et enfin, dans le command button, rajoute en début de code :

Fin = True