ListBox et TextBox, prendre en compte une colonne de plus

Bonsoir,

Contexte : Je souhaitais utiliser une base de données pour remplir un classeur. J'avais donc 2 fichiers. Dans mon classeur servant de base de données (https://www.cjoint.com/c/EBjagTWIC04 ) j'avais plusieurs colonnes dont les 3 premières m'intéressaient à insérer dans le classeur destiné à les recevoir (https://www.cjoint.com/c/EBjai1aRu7q )

Aujourd'hui, je voudrais pouvoir en insérer 1 de plus (la colonne D en l'occurrence).
Novice, mais j'ai tenté. Le code d'origine :

Private Sub Workbook_Open()
    Dim derlig As Long
    On Error GoTo sortie
    Workbooks.Open ThisWorkbook.Path & "\bdd.xlsx"
    With Workbooks("bdd.xlsx").Sheets("Feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        Sources = .Range("A2:C" & derlig).Value
    End With
    ActiveWorkbook.Close SaveChanges:=True
    With Sheets("Feuille de présence")
        .ListBox1.Visible = False
    End With
    supervision
    Exit Sub
sortie:
            MsgBox "Désolé mais la base de données n'a pas été trouvé." & vbLf & "Pour utiliser une base de données, merci de placer le fichier bdd.xlsx dans le dossier : " & ThisWorkbook.Path & "" & vbLf & "Plus d'aide : www.lanimetvous.com"
    On Error GoTo 0
End Sub

Ici, j'ai juste modifié la ligne en gras avec ("A2:D" & derlig). Histoire qu'il garde en mémoire cette plage.

Ensuite, plus compliqué, je me suis perdu.

Option Explicit

Private Sub ListBox1_Click()
Call Module5.ajouter_ligne_enfant
    DoEvents
With ListBox1
    If .ListIndex = -1 Then Exit Sub
    Range("A10") = Split(.List(ListBox1.ListIndex), " - ")(0)
    Range("B10") = Split(.List(ListBox1.ListIndex), " - ")(1)
    Range("C10") = Split(.List(ListBox1.ListIndex), " - ")(2)
    .Visible = False
End With
With TextBox1
    .Value = ""
End With
Range("A10").Select
End Sub

Ici, j'ai ajouté une ligne : Range("D10") = Split(.List(ListBox1.ListIndex), " - ")(2)
Sur ce 2, je suppose qu'il faut mettre un 3, la suite quoi. C'aurait été trop facile. Échec. Je tente avec 0, et là, ça marche. Mais j'ai le contenu de la première colonne. Je me dis : "je dois lui dire à quoi correspond le 3".
Je pense à cette macro :

Private Sub TextBox1_Change()
Dim lettre As String, cptr As Long, cptr_tablo As Long, derlig As Long, i As Long
Dim Tb()

lettre = UCase(TextBox1.Value)
If lettre = "" Then Exit Sub
For cptr = 1 To UBound(Sources, 1)
    If Sources(cptr, 1) Like lettre & "*" Then
        ReDim Preserve Tb(cptr_tablo)
        Tb(cptr_tablo) = Sources(cptr, 1) & " - " & Sources(cptr, 2) & " - " & Sources(cptr, 3)
        cptr_tablo = cptr_tablo + 1
    End If
Next
If cptr_tablo = 0 Then MsgBox "Aucun Nom commençant par : " & lettre: Exit Sub
With ListBox1
    .Clear
    For i = LBound(Tb) To UBound(Tb)
        .AddItem Tb(i)
    Next
    .Visible = True
End With
End Sub

Et là, c'est le drame. En ajoutant un cptr, 4, pas de résultat. Le débogeur me surligne : For cptr = 1 To UBound(Sources, 1) et je ne comprend plus rien.

Que dois-je modifier pour prendre en compte cette 4ième colonne (et éventuellement même une cinquième, etc) ?

Merci d'avance de votre aide !



Bien à vous,
Naï
ps: je surveille tous mes sujets non résolus, si solution vous avez, je la lirais à coup sûr :)