Private Sub UserForm_Initialize()
Dim Plage As Range
Dim Lig As Long, Col As Long, ColList As Long, ColListFinale As Long
Dim Tlist()
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "90;40;40"
With Sheets("Entree")
Set Plage = .Range("B3 : P" & .[B65000].End(xlUp).Row)
ReDim Tlist(3, 1)
For Lig = 1 To Plage.Rows.Count
If Plage.Cells(Lig, 14).Value <> "0" Then
ColListFinale = 0
For ColList = 1 To 15
If ColList = 1 Or ColList = 14 Or ColList = 15 Then
ColListFinale = ColListFinale + 1
Tlist(ColListFinale, UBound(Tlist, 2)) = Plage.Cells(Lig, ColList).Value
End If
Next ColList
ReDim Preserve Tlist(3, UBound(Tlist, 2) + 1)
End If
Next Lig
ReDim Preserve Tlist(3, UBound(Tlist, 2) - 1)
ListBox1.List = WorksheetFunction.Transpose(Tlist)
End With
End Sub