Liste déroulante VBA

Bonjour à tous ,

J'ai créé un fichier et souhaite faire une liste déroulante à choix multiple sous VBA.

Cependant ne connaissant pas beaucoup cette implémentation , j'ai besoin de conseils.

En effet j'ai réussi à faire la liste pour la 1ere ligne cependant à chaque fois que je veux l'étendre il me met les mêmes résultats de la 1ère ligne. Or ce que je veux c'est que ces résultats ne soient pas indépendants de cette fameuse première ligne.

voici les codes

Pour la liste déroulante et le bouton commande:

Option Explicit
Private Sub CommandButton1_Click()
Dim i As Byte
Dim ValeurARetourner As String

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & "
End If
Next i
With Sheets("Plan d'action")
.Range("J2") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
.Range("K2").Activate

End With
UserForm1.Hide
Unload UserForm1
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear
With Sheets("Données")
Derlig = .Cells(65536, 6).End(xlUp).Row
For i = 2 To Derlig
ListBox1.AddItem .Cells(i, 6).Value
Next i
End With
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox1.Selected(i) = False
End If
Next i

End Sub


Pour afficher la liste déroulante:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$J$2" Then
Target.Value = ""
Load UserForm1
UserForm1.Show
End If
End sub


Je vous remercie d'avance pour votre aide

cordialement