Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strChoix As String
Dim intItem As Integer
With Target
If .Address = '$E$4' Then
.Value = Empty
UserForm1.Show
With UserForm1.ListBox1
For intItem = 0 To .ListCount - 1
If .Selected(intItem) = True Then
strChoix = strChoix & .List(intItem) & ', '
End If
Next intItem
Unload UserForm1
End With
.Value = Mid(strChoix, 1, Len(strChoix) - 2)
.Offset(1, 0).Select
End If
End With
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
Dim vrtChoix As Variant
With UserForm1.ListBox1
For Each vrtChoix In Sheets('Choix').Range(Cells(3, 9), Cells(Cells(65536, 9).End(xlUp).Row, 9))
.AddItem vrtChoix
Next vrtChoix
End With
End Sub