VBA : Copier tableau dans un autre fichier [RESOLU]

Lg = Sheets("Actions PA").Cells(65536, 2).End(xlUp).Row + 1
FeuilleSource.Range("A9").Currentregion.Copy
FeuilleCible.Range("B" & Lg).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False , Transpose:=False

Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(ThisWorkbook.Path)
   
Set Files = Dossier.Files

If Files.Count <> 0 Then
    For Each File In Files
        If Left$(File.Name,6) <> "Master" And File.Name <> "~$MasterPA.xlsm" Then

Set FeuilleSource = xls.Workbooks.Open(File.Path).Worksheets("PA")
Set FeuilleCible = ActiveWorkbook.Worksheets("Actions PA")

        Lg = FeuilleCible.Cells(65536, 2).End(xlUp).Row + 1
        FeuilleSource.Range("A9").CurrentRegion.Copy
        FeuilleCible.Range("B" & Lg).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End If
...
end if

Sub import()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer, k As Integer
'Dim xls As New Excel.Application
Dim FeuilleSource As Excel.Worksheet, FeuilleCible As Excel.Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(ThisWorkbook.Path)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If File.Name <> "MasterPA_Test.xlsm" And File.Name <> "~$MasterPA_Test.xlsm" Then
Set FeuilleSource = Workbooks.Open(File).Worksheets("PA")
Set FeuilleCible = ThisWorkbook.Worksheets("Actions PA")
With FeuilleSource
Range("A9").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
End With
With FeuilleCible
ThisWorkbook.Activate
Lg = .Cells(65536, 2).End(xlUp).Row + 1
.Select
.Range("B" & Lg).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False ', Transpose:=False
End With
End If
Next
End If
End Sub