Option Explicit
Private Sub UserForm_Initialize()
Dim dl As Long, i As Long, x As Long
dl = Range("A65000").End(xlUp).Row
With ListView1
With .ColumnHeaders
.Add , , "Nom", 80
.Add , , "Date Facture", 80
.Add , , "Date Echeance", 80
End With
.View = lvwReport
For i = 4 To dl
[COLOR="Blue"]If Date >= Cells(i, 14) Then[/COLOR] '= si uniquement la date du jour
.ListItems.Add , , Cells(i, 1)
x = .ListItems.Count
.ListItems(x).ListSubItems.Add , , Cells(i, 4)
.ListItems(x).ListSubItems.Add , , Cells(i, 14)
End If
Next
End With
End Sub