Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Nom As String, Prenom As String
Dim n As Long
Nom = Split(ListBox1.List(ListBox1.ListIndex, 0))(0)
Prenom = Split(ListBox1.List(ListBox1.ListIndex, 1))(0)
For n = 3 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
If Sheets(1).Cells(n, 2) = Nom And Sheets(1).Cells(n, 3) = Prenom Then
TextBoxDate = Sheets(1).Range("A" & n) 'On alimente les données correspondant à la ligne
TextBoxnom = Sheets(1).Range("B" & n) 'On alimente les données correspondant à la ligne
TextBoxprénom = Sheets(1).Range("C" & n) 'de l'index de la Combobox + 2 pour la ligne de Feuille
TextBoxAdresse = Sheets(1).Range("D" & n) 'de l'index de la Combobox + 2 pour la ligne de Feuille
TextBoxcodepostal = Sheets(1).Range("E" & n) 'de l'index de la Combobox + 2 pour la ligne de Feuille
TextBoxville = Sheets(1).Range("F" & n) 'de l'index de la Combobox + 2 pour la ligne de Feuille
TextBoxNtelephone = Sheets(1).Range("G" & n) 'de l'index de la Combobox + 2 pour la ligne de Feuille
TextBoxmail = Sheets(1).Range("H" & n) 'de l'index de la Combobox + 2 pour la ligne de Feuille
TextBoxDatePré = Sheets(1).Range("I" & n) 'de l'index de la Combobox + 2 pour la ligne de Feuille
TextBoxRéunionle = Sheets(1).Range("J" & n) 'de l'index de la Combobox + 2 pour la ligne de Feuille
End If
Next
End Sub