Private Sub RechercheContact_Change()
Me.txtFounisseur.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 1)
Me.TxtTelephone.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 2)
Me.txtMobile.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 3)
Me.txttelecopie.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 4)
Me.txtSiteweb.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 5)
Me.txtContact.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 6)
Me.txtActivite.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 7)
Me.txtAdresse.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 8)
Me.TxtCodePostal.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 9)
Me.txtBoitePostale.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 10)
Me.txtVille.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 11)
Me.TxtPays.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 12)
Me.txtEmail.Value = Sheets("Contacts").Cells(RechercheContact.ListIndex + 3, 13)
End Sub