Bonjour
Voici une solution
La liste déroulante des différents cours doit être basée sur une table "list_cours"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub BOUTONAJOUTCOURS_Click()
 
Dim vSel As Variant, Numenreg As Integer
 
             For Each vSel In Me.[nom de la liste déroulante].ItemsSelected
 
                          Numenreg = vSel
                          DoCmd.RunSQL "INSERT INTO [Eleves] ( Nom-cours ) SELECT [list_cours].Nom_cours FROM [list_cours] WHERE ([list_cours].nom_cours=" & Me.[nom de la liste déroulante].ItemData(vSel) & ")"
 
             Next
 
End Sub