Private Sub UserForm_Initialize()
Dim Tbl(), i As Long, DerL As Long, L As Long, NbL As Long, C As Integer
Me.ListBox2.ColumnCount = 27
Me.ListBox2.ColumnWidths = "40;90;60;60;60;90;60;90;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40;40"
With Sheets("Commandes")
DerL = .Range("AB65536").End(xlUp).Row
NbL = Application.CountIf(.Range("AB2:AB" & DerL), "=Non approuvée")
ReDim Tbl(1 To NbL, 1 To 27)
For L = 2 To DerL
If .Range("AB" & L) = "Non approuvée" Then
i = i + 1
For C = 1 To 27
Tbl(i, C) = .Cells(L, C)
Next C
End If
Next L
End With
Me.ListBox2.List = Tbl
End Sub