Private Sub UserForm_Initialize()
Dim L As Long, tablo
ListView1.ListItems.Clear
With ListView1.ColumnHeaders
.Clear
.Add , , Sheets("Rdv").Range("V4").Value, 100
.Add , , Sheets("Rdv").Range("W4").Value, 80, lvwColumnCenter
.Add , , Sheets("Rdv").Range("X4").Value, 50, lvwColumnCenter
.Add , , Sheets("Rdv").Range("Y4").Value, 50, lvwColumnCenter
.Add , , Sheets("Rdv").Range("Z4").Value, 108, lvwColumnCenter
End With
tablo = Sheets("Rdv").Range("v4").CurrentRegion
For L = 2 To UBound(tablo, 1)
ListView1.ListItems.Add , , tablo(L, 1)
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(tablo(L, 2), "dd/mm/yyyy")
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(tablo(L, 3), "hh:mm")
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(tablo(L, 4), "hh:mm")
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , tablo(L, 2)
Next
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
ListView1.Width = 398 '100+80+50+50+108+10
End Sub