Private Sub mdrsociete_Change()
With Sheets("bdcontact")
Textnom = .Cells(mdrsociete.ListIndex + 3, 3)
Texttitre = .Cells(mdrsociete.ListIndex + 3, 4)
Textadressecommerciale = .Cells(mdrsociete.ListIndex + 3, 5)
Textweb = .Cells(mdrsociete.ListIndex + 3, 6)
Textfax = .Cells(mdrsociete.ListIndex + 3, 7)
Texttelfixe = .Cells(mdrsociete.ListIndex + 3, 8)
Texttelportable = .Cells(mdrsociete.ListIndex + 3, 9)
Textemail = .Cells(mdrsociete.ListIndex + 3, 10)
Textadressefacturation = .Cells(mdrsociete.ListIndex + 3, 11)
Textecheance = .Cells(mdrsociete.ListIndex + 3, 12)
Texttransport = .Cells(mdrsociete.ListIndex + 3, 13)
Texttypepaiement = .Cells(mdrsociete.ListIndex + 3, 14)
Textminifac = .Cells(mdrsociete.ListIndex + 3, 15)
Textrcs = .Cells(mdrsociete.ListIndex + 3, 16)
Textsiret = .Cells(mdrsociete.ListIndex + 3, 17)
Textcompte = .Cells(mdrsociete.ListIndex + 3, 18)
Textadresselivraison = .Cells(mdrsociete.ListIndex + 3, 19)
End With
End Sub