Recherche et copie de données d'un fichier vers un autre

Bonjour à tous,

j'aimerais de l'aide pour écrire le code qui me permettra de remplir les colonnes "Localisation", "Bureau" et Patron" de la feuil1 du fichier "Exemple Tableau final.xls" à partir des données de la feuille "Liste des noms" du fichier "Exemple Tableau Liste de noms.xls". Je pensais y parvenir en utilisant la fonction "find" et en recherchant le nom de chaque personne indiqué dans la colonne B dans le fichier "Exemple Tableau Liste de noms.xls", mais... je ne sais pas comment faire...

La feuille "Résultat recherché" montre ce que j'essaie d'obtenir.

Merci de votre aide ou de vos remarques !

Bonnes fêtes,

Amicalement

Bonjour à tous !

Tous mes vœux en cette nouvelle année !!

Après quelques heures de sommeil et en reprenant tout ça calmement, j'ai trouvé ma solution. Je la poste, si ça peut servir à quelqu'un...

Dim WsS As Worksheet, WsC As Worksheet
Dim Cel As Range, C As Range
Set WsS = Workbooks("Exemple Tableau final.xls").Worksheets("Feuil1")
Set WsC = Workbooks("Exemple Tableau Liste de noms.xls").Worksheets("Liste des noms")
For Each Cel In WsS.Range("B3:B" & WsS.Range("B" & Rows.Count).End(xlUp).Row)
Set C = WsC.Columns(4).Find(Cel, , xlValues, xlWhole)
If Not C Is Nothing Then
C.Offset(0, 12).Copy WsS.Range("F" & Cel.Row)
C.Offset(0, 13).Copy WsS.Range("G" & Cel.Row)
C.Offset(0, 14).Copy WsS.Range("H" & Cel.Row)
End If
Next Cel
Set C = Nothing: Set WsS = Nothing: Set WsC = Nothing

Désolée de vous avoir déranger pour rien

Bonne journée à tous,

Amicalement