Sub EnTeteListBox()
colVisu = Array(1, 2, 3, 4, 5, 6, 7) ' colonnes à visualiser
x = Me.ListBox1.Left + 8
Y = Me.ListBox1.Top - 20
For c = 1 To Nbcol
Pos = Application.Match(c, colVisu, 0)
If Not IsError(Pos) Then
k = c
Set Lab = Me.Controls.Add("Forms.Label.1")
Lab.Caption = Range(NomTableau).Offset(-1).Item(1, c)
Lab.Top = Y
Lab.Left = x
Lab.Height = 24
Lab.Width = Range(NomTableau).Columns(c).Width * 1#
x = x + Range(NomTableau).Columns(c).Width * 1
tempcol = tempcol & Range(NomTableau).Columns(c).Width * 1# & ";"
Else
x = x + 0
tempcol = tempcol & 0 & ";"
End If
Next c
Me.ListBox1.ColumnWidths = tempcol
End Sub