XL 2019 Remplacer 2 texbox par 2 combobox avec une listview

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

On Error GoTo errHandler ' pour éviter l'erreur 91 (listview = null)

Dim transferir
transferir = (ListView1.SelectedItem.Index)

Me.TextBox2.Value = ListView1.ListItems(transferir)
Me.TextBox4.Value = ListView1.ListItems(transferir).ListSubItems(1).Text
Me.TextBox5.Value = ListView1.ListItems(transferir).ListSubItems(2).Text
Me.TextBox6.Value = ListView1.ListItems(transferir).ListSubItems(3).Text
Me.TextBox10.Value = ListView1.ListItems(transferir).ListSubItems(4).Text
' ...
Me.ComboBox3.Text =  ListView1.ListItems(transferir).ListSubItems(8).Text
' ...
' ...continuer avec le même processus pour tous les autres "TextBox"
'vous pouvez modifier l'ordre dans lequel le "TextBox" reçoit les données du "ListView"

Exit Sub
errHandler:
    ' Cancel is true
    Exit Sub
End Sub

Private Sub CommandButton1_Click()    'modifier
    Dim i As Byte, L As Long
' Stop
    Application.ScreenUpdating = False
    L = Me.ComboBox1.ListIndex
   '
    For i = 1 To 17
    Application.ThisWorkbook.Worksheets("Feuil1").Cells(ligne, i) = Me.Controls("TextBox" & i)
    Next i
   '
    Call Remplir_Liste(ComboBox1.Text)
     Call Remplir_Combobox
    Application.ScreenUpdating = True
    For i = 1 To 17
    Me.Controls("Textbox" & i) = ""
    Next i
End Sub

Private Sub CommandButton1_Click()    'modifier

Dim i As Byte, L As Long, j As Integer
' Stop
Application.ScreenUpdating = False
L = Me.ComboBox1.ListIndex
'
For i = 1 To 16
   For j = 2 To 17
       Application.ThisWorkbook.Worksheets("Feuil1").Cells(ligne, i) = Me.Controls("TextBox" & j)
   Next j
Next i
'
Call Remplir_Liste(ComboBox1.Text)
Call Remplir_Combobox
Application.ScreenUpdating = True

For i = 1 To 17
    Me.Controls("Textbox" & i) = ""
Next i

End Sub