Si tu faisis ceci:
- Tout en haut du module, tu tapes "Option Explicit"
- Tu déclare NomB comme ceci
"Function NomB(byval intNB1 as Integer, byval intNB2 as Integer) as Boolean
- Tu remplace l'appel à la fonction par
"Loop While .... And NomB(intNB1,intNB2)=False