Visual Basic > test

Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i, 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.xlsm" And File.Name <> "~$MasterPA.xlsm" Then

Set FeuilleSource = xls.Workbooks.Open(File.Path).Worksheets("PA")
Set FeuilleCible = ActiveWorkbook.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
               Lg = Sheets("Actions PA").Cells(65536, 2).End(xlUp).Row + 1
                .Range("B" & Lg).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False ', Transpose:=False
   End With