Bonjour, je vois plusieurs problèmes avec cette méthode.
- Il peut y avoir une erreur de frappe et dans ce cas excel va buguer.
- La saisie manuelle du TGI ne va pas indiquer pour autant le numéro de ligne à prendre en compte pour l'affichage des autres infos.
Le plus simple est de remplacer ta Txtbox TGI par une "Combobox" liste déroulante.
Tu pourras ainsi utiliser le numéro d'index trouvé par la combobox pour l'affichage des autres infos.
Private Sub ComboBox1_Change()
Dim numligne As Long
numligne = ComboBox1.ListIndex + 2
Textmail.Value = Worksheets("Contact").Cells(numligne, 2).Value
Texttel.Value = Worksheets("Contact").Cells(numligne, 3).Value
Textnom.Value = Worksheets("Contact").Cells(numligne, 4).Value
Textprénom.Value = Worksheets("Contact").Cells(numligne, 5).Value
End Sub