Private Sub UserForm_Initialize()
Dim l As Integer
Dim tablo As Variant
ListView1.ListItems.Clear
With ListView1.ColumnHeaders
.Clear
.Add , , Sheets("Rdv").Range("U4").Value, 0
.Add , , Sheets("Rdv").Range("V4").Value, 100, lvwColumnCenter
.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), tablo(l, 1)
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , tablo(l, 1)
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , tablo(l, 2)
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(tablo(l, 3), "dd/mm/yyyy")
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(tablo(l, 4), "hh:mm")
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(tablo(l, 5), "hh:mm")
Next l
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
ListView1.ListItems(1).Selected = True
End Sub