Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim Ind As Integer
Ind = Me.ListView1.SelectedItem.Index
Me.Lbl_Nom = Me.ListView1.SelectedItem.SubItems(1)
Me.Lbl_Prénom = Me.ListView1.SelectedItem.SubItems(2)
'Me.Lbl_Sexe = Me.ListView1.SelectedItem.SubItems(3)
End Sub