Private Sub ComboZone_Change()
L5.ListItems.Clear
For Each l In Feuil17.Range("A10").Resize(Feuil17.Range("A" & 2 ^ 16).End(xlUp).Row - 9, 1)
Set a = L5.ListItems.Add(Text:=l)
For i = 2 To L5.ColumnHeaders.Count: a.ListSubItems.Add Text:=l.Offset(, Feuil17.Rows(8).Find(what:=ComboZone).Offset(1).Resize(1, L5.ColumnHeaders.Count - 1).Find(what:=L5.ColumnHeaders(i)).Column - 1): Next i
Next l
'Convertie en heures
With L5
'For i = 1 To 1
For Li = 1 To .ListItems.Count
'.ListItems(Li).Text = .ListItems(Li).Text
.ListItems(Li).ListSubItems(1).Text = Format(.ListItems(Li).ListSubItems(1).Text, "hh:mm:ss")
Next
'Next
End With
End SubEnd With