Private Sub UserForm_Initialize()
Dim dl As Long, i As Long, x As Long
Dim Ws_Source As Worksheet
Set Ws_Source = Worksheets("Feuil1") 'Ici le nom de la feuille
dl = Ws_Source.Range("A65000").End(xlUp).Row
With UserForm4.ListView1
With .ColumnHeaders
.Add , , "Nom", 80
.Add , , "Age", 50
.Add , , "Date Naissance", 90
.Add , , "Jour", 40
.Add , , "Mois", 60
.Add , , "Année", 50
End With
.FullRowSelect = True
.Gridlines = True
.View = lvwReport
For i = 2 To dl
If Date <= Ws_Source.Cells(i, 10) Then
.ListItems.Add , , Ws_Source.Cells(i, 1)
x = .ListItems.Count
.ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 2)
.ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 3)
.ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 4)
.ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 5)
.ListItems(x).ListSubItems.Add , , Ws_Source.Cells(i, 6)
End If
Next
End With
End Sub