Bonjour,
Votre code contient plusieurs appels à des fonctions/subs qui ne sont pas présents dans le fichier joint. D'où certaines erreurs.
Par exemple, ligne 3 la macro Enreg ?? que d'ailleurs vous tentez d'affectez à une variable ?? Ce n'est pas possible. Plus loin "colVisu"…
Vous avez des instructions uniques répétées plusieurs fois…
Option Compare Text
Dim f, BD(), choix(), Rng, Ncol, NcolInt, colVisu(), colInterro(), Decal
Etes-vous sur de comprendre ce que vous faites ou avez-vous copié collé des morceaux de code trouvés sur internet ? Car c'est vraiment étrange autrement.