With Sheets("Matières")
For k = 1 To ListBox1.ListCount
'fMatch = False
Derniereligne = .Cells(Application.Rows.Count, 1).End(xlUp).Row
For ic = Derniereligne To 2 Step -1
If .Cells(ic, 1).Value = CStr(Me.ComboBox2) Then .Rows(ic).Delete
Next ic
'End If
For l = 1 To ListBox3.ListCount
If ListBox1.List(k - 1, 1) = ListBox3.List(l - 1, 1) Then
fMatch = True
Exit For
End If
Next l
If Not fMatch Then
For Numonglet = 0 To Me.ListBox1.ListCount - 1
Nligne = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & Nligne) = Ideleve
.Range("B" & Nligne) = Me.ListBox1.List(Numonglet, 0)
Next Numonglet
'ListBox3.AddItem ListBox1.List(k - 1)
End If
Next k
End With