ListBox à choix multiples

bonsoir a tous
je suis tres de rejoindre la communauté je novice en developpement informatique
je travaille sur un projet ou il y a une listbox à choix multiples mon probléme c'est comment adapter le code recherche et le code de modification des choix

je recupére les choix par colonne et simultanément dans une cellule (stemp1)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub VALIDER_Click()
Sheets("DONNEES").Unprotect "ADMIN"
Dim NewLig As Long
Dim i As Integer
 
 
    With Worksheets("DONNEES")
        NewLig = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
        With .Range("A" & NewLig)
            .Value = IIf(NewLig = 3, 1, Val(.Offset(-1).Value) + 1)
 
            .Offset(0, 1).Value = Me.TXTPRENOM.Value
            .Offset(0, 2).Value = Me.TXTNOM.Value
            .Offset(0, 3).Value = Me.TXTAGE.Value
            .Offset(0, 4).Value = Me.TXTADRESSE.Value
            .Offset(0, 5).Value = stemp1
 
 
        End With
        For i = 0 To Me.LBOPRODUIT.ListCount - 1
            If Me.LBOPRODUIT.Selected(i) Then .Range("G" & NewLig).Offset(, i).Value = UCase(Me.LBOPRODUIT.List(i))
        Next i
    End With
 
Unload USF_SAISIE_CLIENT
Load USF_SAISIE_CLIENT
 
 
                                                                                                                                                                   ActiveWorkbook.Save
Sheets("DONNEES").Protect "ADMIN", True, True, True
USF_SAISIE_CLIENT.Show
 
Private Sub LBOPRODUIT_Change()
stemp1 = ""
For i = 0 To Me.LBOPRODUIT.ListCount - 1
           If Me.LBOPRODUIT.Selected(i) Then
           stemp1 = stemp1 & LBOPRODUIT.List(i) & " "
           End If
           Next i
           If Right(stemp1, i) = " " Then
           stemp1 = Left(stemp1, Len(stemp1) - 1)
           End If
End Sub