Importer données d'un fichier Excel

Bonjour,

J'ai créée une macro qui permet, sous condition, d'importer des données d'un fichier Excel (POST_SV3) vers un autre. Elle marchait très bien, jusqu'à aujourd'hui, où la macro ne fonctionne plus et s'arrête sur la ligne surlignée ci-dessous. (Le fichier Excel POST_SV3 s'ouvre bien). Si qqun a une idée du pourquoi..

Merci !

Sub ImporterAttributs()
Dim i As Integer
Dim j As Integer
Dim LastRowA As Integer
Dim LastRowS As Integer

LastRowA = ThisWorkbook.Worksheets("Actuel").Range("A65536").End(xlUp).Row

Application.Workbooks.Open "C:\Users\mnino\Desktop\POST_SV3.xlsx"

LastRowS = Workbooks("POST_SV3").Worksheets("PROD + Pré-renta").Range("A65536").End(xlUp).Row

For i = 5 To LastRowA
    For j = 3 To LastRowS
     If ThisWorkbook.Sheets("Actuel").Cells(i, 4).Value = Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Cells(j, 2).Value Then            

            'Type of Products
            Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Activate
            Cells(j, 1).Select
            Selection.Copy
            ThisWorkbook.Sheets("Actuel").Activate
            Cells(i, 5).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

            'Item Name
            Workbooks("POST_SV3").Sheets("PROD + Pré-renta").Activate
            Cells(j, 3).Select
            Selection.Copy
            ThisWorkbook.Sheets("Actuel").Activate
            Cells(i, 6).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

        Exit For

        End If
    Next j
Next i

End Sub