Private Sub ListBox1_Click()
'ligne = Me.ListBox1.ListIndex + 3
ligne = Application.Match(ListBox1, f.[AR1:AR5000], 0)
Me.TextBox_nom = f.Cells(ligne, 4)
Me.TextBox_prenom = f.Cells(ligne, 5)
Me.TextBox_classe = f.Cells(ligne, 2)
Me.TextBox_entrepise = f.Cells(ligne, 44)
Me.TextBox_responsable = f.Cells(ligne, 46)
Me.TextBox_Adresse_E = f.Cells(ligne, 45)
Me.TextBox_code_postal_E = f.Cells(ligne, 47)
Me.TextBox_Ville_E = f.Cells(ligne, 48)
Me.TextBox_telephone_E = f.Cells(ligne, 50)
Me.TextBox_telecopie_E = f.Cells(ligne, 51)
Me.TextBox_Portable_E = f.Cells(ligne, 47)
Me.TextBox_email_E = f.Cells(ligne, 54)
Me.TextBox_MA_E = f.Cells(ligne, 56)
Me.TextBox_P_MA = f.Cells(ligne, 55)
End Sub