Salut Yvouille
Merci pour ton aide, ca fonctionne super.
Effectivement, j'ai supprimer le bouton recherche, je l'ai mis directement dans Nom_change, nettement plus simple!!!
J'ai rajouter aussi le petit "euros" qui va bien!! lol
Private Sub Nom_Change()
Dim LaRecherche As String, Recherche_Conso As String
LaRecherche = Application.WorksheetFunction.VLookup(Nom, Sheets("Données").Range("Tablo"), 2, False)
Recherche_Conso = Application.WorksheetFunction.VLookup(Nom, Sheets("Données").Range("Tablo"), 3, False)
Adresse_mails.Value = LaRecherche
Conso = Recherche_Conso & " Euros"
End Sub
Merci encore