Private Sub CommandButton1_Click()
Dim L As Byte
ListeTaches.ListBox1.Clear 'efface la listebox destination
With ChoixRayonParam.LstRayon
If .ListIndex = -1 Then Exit Sub 'si pas de sélection dans LstRayon on sort de la procèdure
For L = 0 To .ListCount - 1 'pour chaque éléments de la listBox'LstRayon)
's'il est sélectionné
If .Selected(L) = True Then
'on ajoute cette élément à la listBox1
ListeTaches.ListBox1.AddItem .List(L)
End If
.Selected(L) = False 'on déselectionne
Next
End With
Hide
End Sub