Désolé, votre PJ génère plein d'erreur comme :
' Sub Dupliquer() qui est en commentaires, j'ai rectifié,
Dim m As Integer: qui génère une erreur de compil, je l'ai supprimé.
Apperçu.Range(1).Value = SélectionMatières1.Value quand on a fait une sélection du nombre de groupes puis la matière.
Je me suis arrêté là.
Dans la dernière macro de la dernière sélection, NomListBox_Change par ex, vous terminez par
Listboxxx.Visible=false.