Private Sub Userform_Initialize()
Dim ws As Worksheet
Dim rng As Range
Dim lastRow As Long
Dim i As Long
' Référence à la feuille contenant le tableau TB
Set ws = ThisWorkbook.Sheets("Tableau") ' Remplacez "Sheet1" par le nom de votre feuille
lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row ' Dernière ligne du tableau
' Définir la plage du tableau (par exemple, colonnes A à D)
Set rng = ws.Range("F6:U" & lastRow) ' Ajustez selon vos colonnes
' Vider la ListBox
Me.ListBox1.Clear
' Configurer le nombre de colonnes dans la ListBox
Me.ListBox1.ColumnCount = 16 ' Ajustez selon le nombre de colonnes de votre tableau
Me.ListBox1.ColumnWidths = "50;100;100;100;100;100;100;100;100;100;100;100;100;100;100;100" ' Largeur des colonnes en points
' Charger les données dans la ListBox
Me.ListBox1.List = rng.Value
' For i = 1 To rng.Rows.Count
' ListBox1.AddItem
' ListBox1.List(i - 1, 0) = rng.Cells(i, 1).Value ' Colonne 1
' ListBox1.List(i - 1, 1) = rng.Cells(i, 2).Value ' Colonne 2
' ListBox1.List(i - 1, 2) = rng.Cells(i, 3).Value ' Colonne 3
' ListBox1.List(i - 1, 3) = rng.Cells(i, 4).Value ' Colonne 4
' ListBox1.List(i - 1, 4) = rng.Cells(i, 5).Value ' Colonne 5
' ListBox1.List(i - 1, 5) = rng.Cells(i, 6).Value ' Colonne 6
' ListBox1.List(i - 1, 6) = rng.Cells(i, 7).Value ' Colonne 7
' ListBox1.List(i - 1, 7) = rng.Cells(i, 8).Value ' Colonne 8
' ListBox1.List(i - 1, 8) = rng.Cells(i, 9).Value ' Colonne 9
' ListBox1.List(i - 1, 9) = rng.Cells(i, 10).Value ' Colonne 10
' ListBox1.List(i - 1, 10) = rng.Cells(i, 11).Value ' Colonne 11
' ListBox1.List(i - 1, 11) = rng.Cells(i, 12).Value ' Colonne 12
' ListBox1.List(i - 1, 12) = rng.Cells(i, 13).Value ' Colonne 13
' ListBox1.List(i - 1, 13) = rng.Cells(i, 14).Value ' Colonne 14
' ListBox1.List(i - 1, 14) = rng.Cells(i, 15).Value ' Colonne 15
' ListBox1.List(i - 1, 15) = rng.Cells(i, 16).Value ' Colonne 16
' Next i
End Sub