Hello,
Voici le début de chaque code :
(Profs)
Private Sub btnListeProfs_Click()
Dim lngNum As Long, lngLigneE As Long, lngLigneP As Long
Dim strProf As String, strClasse As String
lngLigneE = 2 'Ligne eleve
lngLigneP = 7 'Ligne prof
strProf = wksProfs.Cells(3, 3).Value 'Liste prof
strClasse = wksProfs.Cells(4, 3).Value 'Liste classe
wksProfs.Range("A7:C5000").ClearContents 'Vide la liste precedente
'....
(Matieres)
Private Sub btnListeMatieres_Click()
Dim lngNum As Long, lngLigneE As Long, lngLigneP As Long
Dim strMat As String, strClasse As String
lngLigneE = 2 'Ligne eleve
lngLigneP = 7 'Ligne matieres
strMat = wksMatieres.Cells(4, 3).Value 'Liste matieres
strClasse = wksMatieres.Cells(3, 3).Value 'Liste classe
wksMatieres.Range("A7:C5000").ClearContents 'Vide la liste precedente
'....