Dim f, a(1 To 20, 1 To 2)
Sub UserForm_Initialize()
Set f = Sheets("bd")
Me.choix.List = Range(f.[A2], f.[b65000].End(xlUp)).Value
Me.choix.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub Choix_Change()
ligne = 0
For k = 0 To Me.choix.ListCount - 1
If Me.choix.Selected(k) = True Then
ligne = ligne + 1
a(ligne, 1) = Me.choix.List(k, 0)
a(ligne, 2) = Me.choix.List(k, 1)
End If
Next k
End Sub
Private Sub cmdValider_Click()
f.Cells(2, "e").Resize(20, 2).ClearContents
f.Cells(2, "e").Resize(UBound(a), 2) = a
Unload Me
End Sub