Bonsoir Jeunixe, bonsoir le forum,
Peut-être comme ça :
Private Sub UserForm_Initialize()
Dim WS As Worksheet 'déclare la variable WS (WorkSheet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Set WS = Sheets("Feuil1") 'définit l'onglet WS
TV = Range("A2").CurrentRegion 'définit le tableau des valeurs TV
'définit le nombre de colonnes de la ListBox1 (autant que le tableau des valeurs TV)
Me.ListBox1.ColumnCount = UBound(TV, 2)
Me.ListBox1.List = TV 'alimente la ListBox1 avec le tableau de valeurs TV
End Sub