Concatener valeur d'une feuille sur une autre feuille

Bonjour tout le monde

je vous pose mon petit souci

dans le 1er onglet d'un classeur

j'ai une liste d'animateurs de randonnée

comportant nom,prénom et tél sur 3 colonnes

dans le 2ème onglet une colonne animateurs

en tapant les premières lettres d'un nom dans une cellule

afficher nom+prénom+tel

merci d'avance de vos lumières

Bonjour,

Code à mettre dans le module de la seconde feuille où s'effectue la saisie :

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Plage As Range
    Dim Cel As Range

    If Target.Column <> 1 Then Exit Sub
    If Target.Count > 1 Then Exit Sub

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With 'sur colonne A

    Set Cel = Plage.Find(Target.Value, , xlValues, xlWhole)

    If Cel Is Nothing Then Exit Sub

    Application.EnableEvents = False

    Target.Value = Cel.Value
    Target.Offset(, 1).Value = Cel.Offset(, 1).Value
    Target.Offset(, 2).Value = Cel.Offset(, 2).Value

    Application.EnableEvents = True

End Sub

Bonsoir Theze

je viens de tester .. c'est exactement ce qu'il me fallait

un grand merci à toi

au plaisir