Textbox vers listbox

Private Sub ComboBox2_Change()
 TextBox1 = IIf(ComboBox2.ListIndex = -1, "", ComboBox2)
With Sheets("Données")
a = ComboBox2.ListIndex + 3
'TextBox9 = Sheets("Données").Range("E" & a)
            TextBox2 = Range("B" & a)
            TextBox3 = Range("J" & a)
            TextBox4 = Range("K" & a)
            TextBox5 = Range("L" & a)
            TextBox6 = Range("I" & a)
            TextBox7 = Range("H" & a)
            TextBox8 = Range("M" & a)
            TextBox9 = Range("E" & a)
            TextBox10 = Range("D" & a)
            TextBox12 = Range("F" & a)
            TextBox13 = Range("G" & a)
End With
    'Appel de la procédure créée.
    Selection_ListBox
End Sub

Private Sub Selection_ListBox()
Dim i%
With Me
    'ListBox Genre.
    For i = 0 To .ListBox2.ListCount - 1
        If .ListBox2.List(i) = .TextBox12.Text Then
            .ListBox2.Selected(i) = True
            Else: .ListBox2.Selected(i) = False
        End If
    Next i
    'ListBox Nationalité
    For i = 0 To .Listbox3.ListCount - 1
        If .Listbox3.List(i) = .TextBox13.Text Then
            .Listbox3.Selected(i) = True
            Else: .Listbox3.Selected(i) = False
        End If
    Next i
End With
End Sub