Public Sub valider_Click()
Dim i As Integer
Dim var() As String
Dim nb As Integer
nb = 1
For i = 0 To listvariable.ListCount - 1
If listvariable.Selected(i) = True Then
ReDim Preserve var(nb)
var(nb) = listvariable.List(i, 0)
MsgBox (var(nb))
nb = nb + 1
Else
End If
Next i
Unload Me
End Sub