ListBox1.ColumnHeads = True

Private Sub UserForm_Initialize()
  Set f = Sheets("Feuil1")
  nbcol = f.[A1].CurrentRegion.Columns.Count
  Me.ListBox1.ColumnCount = nbcol
  Set plage = f.[A1].CurrentRegion
  Set plage = plage.Offset(1).Resize(plage.Rows.Count - 1)
  Me.ListBox1.List = plage.Value
  i = 1
  x = 26
  For i = 1 To nbcol
    retour = Me.Controls.Add("Forms.Label.1", "Label" & i, True)
    Me("label" & i).Caption = f.Cells(1, i)
    Me("label" & i).Top = 13
    Me("label" & i).Left = x
    x = x + f.Columns(i).Width * 1.1
    temp = temp & f.Columns(i).Width * 1.1 & ";"
  Next
  Me.ListBox1.ColumnWidths = temp
  Me.ListBox1.Top = 26
  Me.ListBox1.Left = 18
  Me.ListBox1.Height = Me.ListBox1.ListCount * 11
  Me.ListBox1.Width = x - 26
  Application.Wait (Now + TimeValue("00:00:01"))
  Me.Width = Me.ListBox1.Width + 36
  Me.Height = Me.ListBox1.Height + 68
End Sub

Private Sub UserForm_Activate()
Dim SheetBase As Worksheet
UserForm1.Caption = "Sélection d'un article"
'======================================================
Set SheetBase = ThisWorkbook.Sheets("Feuil1")
 
SheetBase.Cells.Columns.AutoFit ' Pour une Largeur cohérente des Colonnes de la Feuille!
 
With UserForm1.ListView1: .View = 3: .Gridlines = True: .FullRowSelect = True: .Sorted = True
    With .ColumnHeaders
        For i = 1 To 10 '"10" étant un nombre forfaitaire de Colonnes renseignées .... On peut l'adapter!
             If SheetBase.Cells(1, i).Value <> "" Then
                .Add , , SheetBase.Cells(1, i).Value, (SheetBase.Columns(i).ColumnWidth * 4) + 18
                 '"4" étant issu des tests (Voire Inches et Points), et "+ 18" un correctif de la même origine.
             End If
        Next i
    End With
 
    For i = 2 To SheetBase.Cells(SheetBase.Rows.Count, 1).End(xlUp).Row
        'On format la valeur sur 3 chiffres
        .ListItems.Add , , Format(SheetBase.Cells(i, 1).Value, "00#")
        For j = 1 To .ColumnHeaders.Count - 1
            If SheetBase.Cells(i, j + 1).Value <> "" Then
               .ListItems(.ListItems.Count).ListSubItems.Add , , SheetBase.Cells(i, j + 1).Value
            Else
               .ListItems(.ListItems.Count).ListSubItems.Add , , "?" 'Ceci pour une suite où Wind n'aime pas le vide!
            End If
        Next j
    Next i
End With
End Sub

Private Sub ListView1_Click()
Me.TextBox1.Text = Me.ListView1.ListItems(1).ListSubItems(1)
Me.TextBox2.Text = Me.ListView1.ListItems(1).ListSubItems(2)
Me.TextBox3.Text = Me.ListView1.ListItems(1).ListSubItems(5)
End Sub