Plusieurs listes déroulantes sur même feuille qui se mélangent

Bonjour,
Je souhaite avoir plusieurs listes déroulantes à choix multiples sur la même feuille excel.
J'en ai pour le moment créer 3.
Les listes s'affichent bien lorsque je double-clic sur A6 ou
B10 ou C20 mais ne correspondent pas à la liste souhaitée...
Pouvez-vous me donner un coup de pouce car cela fait un bon petit moment déjà que je tourne autour ?


UserForm1
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
If ValeurARetourner = "" Then
MsgBox "Sélection obligatoire ou fermez avec la croix"
Exit Sub
End If
ActiveCell = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
ActiveCell.Offset(0, 0).Activate
UserForm1.Hide
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear
With Sheets("ListesMultiples")
Derlig = .Cells(65536, 1).End(xlUp).Row
For i = 1 To Derlig
ListBox1.AddItem .Cells(i, 1).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

UserForm2
Private Sub CommandButton2_Click()
Dim i As Byte
Dim ValeurARetourner As String

For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
ValeurARetourner = ValeurARetourner & ListBox2.List(i) & " & "
End If
Next i
If ValeurARetourner = "" Then
MsgBox "Sélection obligatoire ou fermez avec la croix"
Exit Sub
End If
ActiveCell = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
ActiveCell.Offset(0, 0).Activate
UserForm2.Hide
Unload UserForm2
End Sub

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

UserForm3
Private Sub CommandButton3_Click()
Dim i As Byte
Dim ValeurARetourner As String

For i = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(i) = True Then
ValeurARetourner = ValeurARetourner & ListBox3.List(i) & " & "
End If
Next i
If ValeurARetourner = "" Then
MsgBox "Sélection obligatoire ou fermez avec la croix"
Exit Sub
End If
ActiveCell = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
ActiveCell.Offset(3, 20).Activate
UserForm3.Hide
Unload UserForm3
End Sub

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

Sur Feuille "ListesMultiples"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A6,B10,C20")) Is Nothing Then
Exit Sub
ElseIf Intersect(Target, Range("A6")) Is Nothing Then
Target.Value = ""
Load UserForm2
UserForm2.Show

ElseIf Intersect(Target, Range("B10")) Is Nothing Then
Target.Value = ""
Load UserForm1
UserForm1.Show

ElseIf Intersect(Target, Range("C20")) Is Nothing Then
Target.Value = ""
Load UserForm3
UserForm3.Show
End If
End Sub

Merci beaucoup !