Microsoft 365 Remplir une ComboBox à 3 colonnes avec les données d'un TS

With Me.Cbx_Salarié
               .ColumnCount = 3
               .ColumnWidths = "80;100;100"
        For I = 1 To Tbl.ListRows.Count
            .AddItem Tbl.ListColumns(1).DataBodyRange(I, 2).Value & " " & Tbl.ListColumns(1).DataBodyRange(I, 2).Value
            .List(.ListCount - 1, 1) = Tbl.ListColumns(1).DataBodyRange(I, 1).Value
            .List(.ListCount - 1, 2) = Tbl.ListColumns(2).DataBodyRange(I, 2).Value
            .List(.ListCount - 1, 3) = Tbl.ListColumns(3).DataBodyRange(I, 3).Value
        Next I
    End With

Me.Cbx_Salarié.rowsource = "'Liste_agents'!" & Range("t_Noms[[Code agent]:[Prénom]]").address

Me.Cbx_Salarié.RowSource = "'" & Range("t_Noms").Parent.Name & "'!" & Range("t_Noms[[Code agent]:[Prénom]]").Address

Private Sub UserForm_Initialize()
Dim a
a = ActiveSheet.ListObjects(1).DataBodyRange.Value
a = Application.Index(a, Evaluate("row(1:" & UBound(a) & ")"), Array(1, 2, 3))
ComboBox1.List = a
End Sub

Private Sub UserForm_Initialize()
Dim a
a = ActiveSheet.ListObjects(1).DataBodyRange.Value
a = Application.Index(a, Evaluate("row(1:" & UBound(a) & ")"), Array(1, 3, 5))
ComboBox1.List = a
End Sub

Userform.show 0

Set Tbl = Ws.ListObjects("t_Noms")

Private Sub UserForm_Initialize()
Dim Tbl As ListObject
Dim I As Integer
 
    'On enlève la croix de fermeture du formulaire
    SansCroix Me
   
    Set Ws = Sheets("Liste_agents")
    'On définit le tableau
    Set Tbl = Ws.ListObjects("t_Noms")

    'Chargement des différents contrôles du formulaire
   
    'On vide la ComboBox Cbx_Salarié
    Me.Cbx_Salarié.Clear
    'On la remplie à nouveau avec le TS "t_Noms" de la feuille "Liste_agents"
    With Me.Cbx_Salarié
        .ColumnCount = 3
        .ColumnWidths = "80;100;100"
        .RowSource = Tbl.DataBodyRange.Address '1ere méthode avec l'adresse d'une range==> Incompatible avec une rowsource définie en "dur" dans les propriétés du control
        .List = Tbl.DataBodyRange.Value '2eme méthode avec le contenu de la Table==> dans le meme ordre que les colonnes de la table
        For I = 1 To Tbl.ListRows.Count '3eme méthode avec additem==> plus "souple" car on met les données dans l'ordre qu'on veut
            .AddItem Tbl.DataBodyRange(I, 2).Value & " " & Tbl.DataBodyRange(I, 3).Value
            .List(.ListCount - 1, 1) = Tbl.ListColumns(1).DataBodyRange(I).Value
            .List(.ListCount - 1, 2) = Tbl.ListColumns(2).DataBodyRange(I).Value
            .List(.ListCount - 1, 3) = Tbl.ListColumns(3).DataBodyRange(I).Value
        Next I
    End With
    'Initialisation de la date du début de la semaine en partant du lundi
    If Weekday(Now, 2) <> 1 Then
        Me.Tbx_DebSem = Format(Now - Weekday(Now + 2) + 1, "dd/mm/yyyy")
    Else
        Me.Tbx_DebSem = Format(Now, "dd/mm/yyyy")
    End If
   
    Me.Tbx_NumSem = WorksheetFunction.IsoWeekNum(Now)
    Me.Tbx_FinSem = CDate(Me.Tbx_DebSem) + 6
   
    'On écrit "Retour Menus" sur 2 lignes pour le bouton But_Choix
    Me.But_Choix.Caption = "Retour" & vbCrLf & "Menus"
   
    'Préparation des éléments pour le resize
    For Each pag In MultiPage1.Pages: ic = ic & CStr(pag.Caption): Next: minlarge = Len(ic) * 7
    For Each pag In MultiPage1.Pages
        ReDim Preserve Mpage(0 To pag.Index)
        WW = 0: HH = 0
               
        For Each Ctrl In pag.Controls
            If Ctrl.Left + Ctrl.Width + 20 > WW Then WW = Ctrl.Left + Ctrl.Width + 20: If WW < minlarge Then WW = minlarge
            If Ctrl.top + Ctrl.Height + 50 > HH Then HH = Ctrl.top + Ctrl.Height + 50
        Next Ctrl
   
        Mpage(pag.Index).Width = WW: Mpage(pag.Index).Height = HH
        Mpage(pag.Index).hCaption = Me.Height - Me.InsideHeight
        Mpage(pag.Index).Weight_Cadre = Me.Width - Me.InsideWidth
    Next pag
   
    EnableEvents = True
   
    With Me.MultiPage1.Pages(0)
        Me.Cbx_Salarié.Visible = False
        Me.Label1.Visible = False
    End With
   
resizeMulti
End Sub