Salut Antoine, le Forum
Sans faire aucun test, mais juste en lecture... Où initialises-tu "SalleActive" car là cette variable déclarée As Range n'est pas initialisée, et donc ne contient rien.
Pour le reste, je ne sais pas si ta boucle peut tourner sur un Control MultiPage de la sorte, mais si tu n'as pas d'erreur c'est bon signe !
Par contre idem pour Couleur, Où initialises-tu cette variable string car elle aussi est vide.
NB si tu as fait des doublons de Dim sur ces variables que tu aurais initialisées en dehors de cette Sub, le Dim dans cette Sub les vides...
Voilà pour une première approche.
Bon App
@+Thierry