XL 2021 Besoin de conseils pour une sélection de multiples éléments

Private Sub UserForm_Initialize()
Dim ws As Worksheet, i As Long, j As Long, LastRow As Long, ni As Long
 
  Set ws = Worksheets("Gestion")
   '   Mise en place des entêtes de colonnes
   ListBox1.ColumnCount = 5
   ListBox1.RowSource = "Gestion!A1:E1"
  
   LstBDates.Clear
   LstBDates.ColumnCount = 5
   LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
   ' Remplissage ListBox
   For i = 2 To LastRow       ' depuis la ligne 2 (on saute la ligne des en-têtes)
      If ws.Cells(i, 1).Value <> vbNullString And ws.Cells(i, 5) = "" Then ' si le code n'est vide et si pas de date de départ
         LstBDates.AddItem ws.Cells(i, 1)    ' on ajoute la personne dans la liste
         ni = LstBDates.ListCount - 1        ' ni est le numéro de la ligne de List (le -1 car
                                             ' les indices de List commencent à 0 et non pas 1)
         ' on remplit les colonnes suivantes de List - indices 1 à 4
         ' l'indice de ligne de List est toujours ni
         ' la Valeur de la colonne j de Liste est la valeur de la feuille en ligne i et en colonne j+1
         For j = 1 To 4: LstBDates.List(ni, j) = ws.Cells(i, j + 1): Next
      End If
   Next i
End Sub

For i = 2 To LastRow
            If ws.Cells(i, 1).Value <> vbNullString Then LstBDates.AddItem ws.Cells(i, 1).Value
            If ws.Cells(i, 2).Value <> vbNullString Then LstBDates.List(LstBDates.ListCount - 1, 1) = ws.Cells(i, 2).Value
            If ws.Cells(i, 3).Value <> vbNullString Then LstBDates.List(LstBDates.ListCount - 1, 2) = ws.Cells(i, 3).Value
            If ws.Cells(i, 4).Value <> vbNullString Then LstBDates.List(LstBDates.ListCount - 1, 3) = ws.Cells(i, 4).Value
            If ws.Cells(i, 5).Value <> vbNullString Then LstBDates.List(LstBDates.ListCount - 1, 4) = ws.Cells(i, 5).Value
    Next i

Private Sub UserForm_Initialize()
'Set some of the properties for the ListView
With Me.ListView1
    .HideColumnHeaders = False
    .View = lvwReport
End With

'Declare the variables
Dim rngData As Range,rngCell As Range, LstItem As ListItem
Dim RowCount As Long, ColCount As Long, i As Long, j As Long

'Set the source range
Set rngData = Range("PersonnesT")
'Add the column header
For Each rngCell In rngData.Rows(1).Cells
    Me.ListView1.ColumnHeaders.Add Text:=rngCell.Value, Width:=50
Next rngCell
'Count the number of rows in the source range
RowCount = rngData.Rows.Count
'Count the number of columns in the source range
ColCount = rngData.Columns.Count
'Fill the ListView
For i = 2 To RowCount
    Set LstItem = Me.ListView1.ListItems.Add(Text:=rngData(i, 1).Text)
    For j = 2 To ColCount
        LstItem.ListSubItems.Add Text:=rngData(i, j).Text
    Next j
Next i
ListView1.ListItems(1).Selected = False
Set ListView1.SelectedItem = Nothing
End Sub