range textebox

Bonjour a tous, bonjour le Forum

j'ai trouvé un exemple excel qui m'intéresse ,mais je n'est pas pu faire une range comme je le veux j'ai tous fait et j'ai n'est pas pus

je veux faire une range sur ; exemple sur la cellule (D13), ou autre cellule

je veux comprendre l'astuce de range sur les listebox


Private Sub ComdQuitter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim L As Integer
Dim Plage As String
L = Sheets("DataBase").Range("A65536").End(xlUp).Row + 1
Plage = Sheets("DataBase").Range("A2😀" & L).Address
ListBox1.RowSource = "DataBase!" & Plage
ListBox1.ColumnCount = 3
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = 80
End Sub
Private Sub ComdValider_Click()
Dim L As Integer, x As Byte
L = Sheets("Inserer").Range("A65536").End(xlUp).Row + 1
With Me.ListBox1
For x = 0 To .ListCount - 1
If .Selected(x) = True Then
Sheets("Inserer").Range("A" & L) = .Column(0, x) 'D13
Sheets("Inserer").Range("B" & L) = .Column(1, x) 'E13
Sheets("Inserer").Range("C" & L) = .Column(2, x) 'F13
L = L + 1
End If
Next x
End With
Unload Me
End Sub