Recherche V dans un autre fichier

Bonjour , J'ai un petit problème concernant ma macro . Je souhaite faire une recherche V d'un code article dans mon tableau dans un autre fichier pour ensuite les transférés dans mon fichier , ce sont trois colonne que je souhaiterais ajouter dans une cellule correspondant au code article associé.

Voici ma macro :

Sub Plage()
Dim Fichier As Variant
Dim LaPlage As String
Dim WbkSource As String ' Nom du fichier Source
Dim WbkDest As String ' Nom de ce fichier

WbkDest = ThisWorkbook.Name

'
' Définition de la zone de recherche dans le fichier Destination
'
LaPlage = Range("B12:N" & Range("B65536").End(xlUp).Row).Address(ReferenceStyle:=xlR1C1, _
RowAbsolute:=True, _
ColumnAbsolute:=True)

' Ouverture du fichier Source
'
Fichier = Application.GetOpenFilename("Fichier XLSX (*.xlsx),*.xlsx")

If Fichier = False Then Exit Sub ' pas de fichier on quitte
Application.DisplayAlerts = False ' si le fichier est déja ouvert
Workbooks.Open Filename:=Fichier ' Ouverture du fichier
WbkSource = ActiveWorkbook.Name
'
' Dans ce fichier en colonne T on écrit la formule de RechercheV
'
With Sheets("Feuil1")
.Range("T1") = "Commentaire"
With .Range("T2:T" & .Range("C65536").End(xlUp).Row)
.Formula = "=VLOOKUP(RC[-15],'[" & WbkDest & "]Feuil1'!" & _
LaPlage & ",10,FALSE)"
.Value = .Value ' Pour remplacer la formule par la valeur
End With
End With

'
' Définition de la zone de recherche dans le fichier Source
'
LaPlage = Range("E2:Q" & Range("S65536").End(xlUp).Row).Address(ReferenceStyle:=xlR1C1, _
RowAbsolute:=True, _
ColumnAbsolute:=True)

'
' Dans le fichier Destination en colonne u on écrit la formule de RechercheV
'
With Workbooks(WbkDest).Sheets("Feuil1")
.Range("U11") = "Commentaire"
With .Range("U12:U" & .Range("C65536").End(xlUp).Row)
.Formula = "=VLOOKUP(RC[-17],'[" & WbkSource & "]Feuil1'!" & _
LaPlage & ",11,FALSE)"
.Value = .Value ' Pour remplacer la formule par la valeur
End With
End With
'
' fermeture du fichier Source
'
With Workbooks(WbkSource)
.Save
.Close
End With
End Sub

Bonjour,

Auriez-vous vos deux fichiers sans données confidentielles à mettre en ligne ?