Option Explicit
Private Sub UserForm_Initialize()
Dim Dli As Long, Li As Long, t(), L As Long
With Sheets("bdd1314")
Dli = .Range("B" & Rows.Count).End(xlUp).Row + 2 '
ReDim t(Dli, 3)
For Li = 3 To Dli
If .Cells(Li, "N") > "&DATE(YEAR(TODAY()),MONTH(TODAY()),DAY(TODAY())-2))" Then
t(L, 0) = .Cells(Li, "A")
t(L, 1) = .Cells(Li, "B")
t(L, 2) = .Cells(Li, "D")
t(L, 3) = Format(.Cells(Li, "N"), "dd/mm/yyyy")
L = L + 1
End If
Next
End With
ListBox1.List = t()
End Sub