Probleme de fonction vlookup

Bonjour,

J'ai apparemment un probleme de vlookup dans ma macro, je ne sais pas si c'est un probleme de range ou autre mais je galere bien. Pourriez vous m'aider, m'eclairer, me sauver svp?

Voici la macro (en gros j'ouvre 2 fichier, reprendre les commentaires du 2eme fichier sur le premier, commentaires se trouvant sur la colonne 37 par rapport à un recherche sur la colonne 36...) :

Sub supervlooklook()
'

Dim Fichier1 As Variant
Dim Fichier2 As Variant
Dim lastcell As Integer
Dim x As String
Dim LT As String
Dim nb As Variant
Dim MyRange As Range

With Application
Fichier1 = .GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls")
End With
' Exit on Cancel

If Fichier1 = False Then
MsgBox "No file 1 was selected."
Exit Sub
End If

Application.ScreenUpdating = False
' --------------
Workbooks.Open Filename:=Fichier1
Fichier1 = ActiveWorkbook.Name
' --------------

With Application
Fichier2 = .GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls")
End With
' Exit on Cancel

If Fichier2 = False Then
MsgBox "No file 2 was selected."
Exit Sub
End If
'--------------------------

Workbooks.Open Filename:=Fichier2
Fichier2 = ActiveWorkbook.Name

lastcell = Workbooks(Fichier1).Sheets(1).Cells(2, 1).End(xlDown).Row

Workbooks(Fichier1).Sheets(1).Range("AK1").Value = "Comment"

For i = 2 To lastcell

LT = Workbooks(Fichier1).Sheets(1).Cells(i, 36).Value

On Error Resume Next

Set MyRange = Workbooks(Fichier2).Sheets(1).Range("AJ1:AK" & lastcell)

If Workbooks(Fichier1).Sheets(1).Cells(i, 37).Value = "" Then Workbooks(Fichier1).Sheets(1).Cells(i, 37).Value = Application.WorksheetFunction.VLookup(LT, MyRange, 2, False)

Next i

End Sub