Re,
Pour la classe supplémentaire, il suffit de rallonger la plage de recherche dans la macro. Le problème est donc régler (a titre d'information, au cas ou le nombre de classe évoluerai encore, c'est la ligne suivante qui est concernée:
Set coche = Sheets("5e").Range("L" & cel.Row & ":Q" & cel.Row).Cells.Find("x")
Pour changer la plage, il faut simplement changer les lettre entre les parenthèses de l'instruction range --> ici "L" et "Q".
Ça correspond au nom des colonne de la première feuille (endroit au on recherche la case cochée)
Pour les mises à jours, dites moi ce que vous en penser.
Nb : j'en ai profiter pour parrer aux erreurs en cas d'oublie de cocher une ou plusieurs cas)
Cordialement