Private Sub Ok_Valider_Click()
Dim ChoixList As String
Dim i As Byte
Dim NoChoixList As String
ChoixList = ""
With ListBoxSections
For i = 0 To .ListCount - 1
If .Selected(i) Then
ChoixList = ChoixList & i + 1 & ";"
End If
Next
End With
ChoixList = Left(ChoixList, Len(ChoixList) - 1)
Unload Me
End Sub