Private Sub UserForm_Initialize()
Dim Ind As Long, DLig As Long, Sht As Worksheet
With ListView1
With .ColumnHeaders
.Clear
.Add , , "Date", 60
.Add , , "Nom", 90
.Add , , "prénom", 60, 2
.Add , , "age", 60, 2
End With
.View = lvwReport
.FullRowSelect = False
End With
For Each Sht In ThisWorkbook.Worksheets
' Cherche la dernière ligne du tableau
DLig = Sht.Range("B" & Rows.Count).End(xlUp).Row
Me.ListView1.ListItems.Add , , Sht.Range("A" & DLig)
Ind = Me.ListView1.ListItems.Count
Me.ListView1.ListItems(Ind).ListSubItems.Add , , Sht.Range("B" & DLig)
Me.ListView1.ListItems(Ind).ListSubItems.Add , , Sht.Range("C" & DLig)
Me.ListView1.ListItems(Ind).ListSubItems.Add , , Sht.Range("D" & DLig)
Next Sht
End Sub