Liste déroulante à choix multiple Excel 2007 [Résolu]

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

Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear
With Sheets("Listes")
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

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("Lundi")
.Range("B4") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
.Range("B5").Activate
End With
UserForm1.Hide
Unload UserForm1
End Sub

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    Target.Value = "" 
    Load UserForm1 
    UserForm1.Show 
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Intersect(Target, Range("F1:F10")) Is Nothing Then 
 Exit Sub 
Else 
    Target.Value = "" 
    Load UserForm1 
    UserForm1.Show 
End If 
End Sub

Private Sub MET_ICI_LE_BON_NOM_DU_BOUTON_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(1, 0).Activate 
UserForm1.Hide 
Unload UserForm1 
End Sub

Private Sub CommandButton1_Click()
Dim i As Byte
Dim ValeurARetourner As String
Dim Trouve As Range
Dim Valeur_cherchee As String
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            Valeur_cherchee = ListBox1.List(i)
            Set Trouve = Sheets("Feuil1").Columns(3).Cells.Find(What:=Valeur_cherchee, LookIn:=xlValues, lookat:=xlWhole)
                    If Trouve Is Nothing Then
                        MsgBox "Pas trouvé"
                    Else
                        ValeurARetourner = ValeurARetourner & Trouve.Offset(0, 1).Value & "; "
                    End If
            Set Trouve = Nothing
        End If
    Next i
Range("G13") = Left(ValeurARetourner, Len(ValeurARetourner) - 2)
Range("G15").Activate
UserForm1.Hide
Unload UserForm1
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("L2:L36,N2:N36")) Is Nothing Then
    Exit Sub
ElseIf Intersect(Target, Range("L2:L36")) Is Nothing Then
    Target.Value = ""
    Load UserForm2
    UserForm2.Show
ElseIf Intersect(Target, Range("N2:N36")) Is Nothing Then
    Target.Value = ""
    Load UserForm1
    UserForm1.Show
End If
End Sub

With Sheets(blabla)
    ListBox1.AddItem Cells(Blibli)
End With

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

Private Sub CommandButton1_Click()
Dim i As Long
Private Sub UserForm_Initialize()
Dim i As Long, Derlig As Long

Private Sub CommandButton1_Click()
Dim i As Long
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("Test")
    .Range("C3") = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
    .Range("C4").Activate
End With
UserForm1.Hide
Unload UserForm1
End Sub