Private Sub L2_ItemClick(ByVal Item As MSComctlLib.ListItem)
B9.Clear
With Sheets("Planning")
For Each cell In .Range("C6:C11" & .Range("B11").End(xlUp).Row)
If cell <> "" Then B9.AddItem (cell.Offset(0, 0))
Next
End With
With UserForm1
Dim lis&
lis = Item.Index
B9 = L2.ListItems(lis)
B5 = L2.ListItems(lis).ListSubItems(5)
B4 = L2.ListItems(lis).ListSubItems(4)
B8 = L2.ListItems(lis).ListSubItems(2)
B7 = L2.ListItems(lis).ListSubItems(1)
B6 = L2.ListItems(lis).ListSubItems(3)
B3 = L2.ListItems(lis).ListSubItems(6)
End With
End Sub