Private Sub UserForm_Initialize()
Set OD = Worksheets("DEVIS")
TV = OD.Range("A1").CurrentRegion
NL = UBound(TV, 1)
NC = UBound(TV, 2)
Me.lblfch = Date
With ListBox2
.ColumnCount = NC - 1
.List = OD.Range("A1").Resize(1, NC).Value
End With
With ListBox1
.ColumnCount = NC
.ColumnWidths = "0 pt"
.List = OD.Range("A1").Resize(1, NC).Value
.Clear
End With
Set OD = Worksheets("DEVIS")
TV = OD.Range("A1").CurrentRegion
NL = UBound(TV, 1)
End Sub