Bonjour a tous,
A force de chercher, j'ai enfin trouver une solution simple:
Set Item_Selectionnee = LW_Mbr_Club.SelectedItem
With LW_Inscrits_Concours
.ListItems.Add , , Item_Selectionnee
.ListItems(.ListItems.Count).ListSubItems.Add , , Item_Selectionnee.ListSubItems(1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Item_Selectionnee.ListSubItems(2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Item_Selectionnee.ListSubItems(3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Item_Selectionnee.ListSubItems(4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Item_Selectionnee.ListSubItems(5)
End With
Pour ceux que ça peut dépanner.....