List multiselection formulaire macrovba excel

Bonjour,

j'ai cree deux liste dont le code ressemble à cela

Private Sub UserForm_Initialize()
Sheets("Liste").Select
'création de la zone de liste secteur destination
Dim Lig As Integer
Dim ColC As String
Dim ValeurCouranteC As String
Dim ValeurPrécédenteC As String

Lig = 2
ColC = "C"
ValeurPrécédenteC = ""
ValeurCouranteC = Cells(Lig, ColC).Value
Do While ValeurCouranteC <> ""
If ValeurCouranteC <> ValeurPrécédenteC Then
ListsecD.AddItem ValeurCouranteC
End If
Lig = Lig + 1
ValeurPrécédenteC = ValeurCouranteC
ValeurCouranteC = Cells(Lig, ColC).Value
Loop

j'ai reussi à enlever les doublons mais ce que je souhaiterais maintenant c'est que la personne puisse selectionner plusieurs valeurs dans la liste mais comment faire?je m'y connais pas trop en vba sous excel