Salut,
Ton code a l’air très bizarre, mais sans avoir le fichier qui va avec, difficile d’être très précis.
Effectivement que tous les CheckBox devraient être passés en revue par le code, mais déjà il manque la partie Next à ta boucle For/Next.
La ligne If CheckBox(i) = True Then contrôle en fait si le CheckBox passé en revue est activé ou non.
Par la ligne n = n + 1 ta macro devrait incrémenter le compte n à chaque fois qu’un CheckBox est activé (true) mais comme tu remets à chaque nouveau passage de la boucle For/Next le compteur n à zéro, ça semble abérrant.
D’autant plus que tu ne fais rien avec cette valeur n !!!!
La ligne Shapes("Rectangle à coins arrondis 1").Visible = False quant à elle ne peut que difficilement être testée sans ton fichier.
Drôle de code, vraiment
Cordialement.