Copier une feuille excel

Sub FichierOuvrir()
  FichierAOuvrir = Application.Dialogs(xlDialogOpen).Show
  MsgBox FichierAOuvrir
End Sub

'il faut mieux employer la boite suivante
'Outils/Références : cocher "Microsoft Excel XX.X Object Library"

Sub ChoixFichier()
  FichierChoisi = Application.GetOpenFilename
  MsgBox FichierChoisi
End Sub

Option Explicit
Dim myRow As Long
Dim wks As Worksheet


Sub FoldersList()
Set wks = Worksheets.Add
myRow = 0

[COLOR="Red"]'Sélectionne ton répertoire ici :[/COLOR]
Call FoldersInFolder("C:\")
End Sub


Sub FoldersInFolder(myFolderName As String)

Dim FSO As Object
Dim myBaseFolder As Object
Dim myFolder As Object
Set FSO = CreateObject("scripting.filesystemobject")

Set myBaseFolder = FSO.GetFolder(myFolderName)

For Each myFolder In myBaseFolder.SubFolders
myRow = myRow + 1
wks.Cells(myRow, "A").Value = myFolder.Path
Call FoldersInFolder(myFolder.Path)
Next myFolder

End Sub

Sub MergeSheets()

    Dim SrcBook As Workbook

    Dim fso As Object, f As Object, ff As Object, f1 As Object

       

    Application.ScreenUpdating = False

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set f = fso.Getfolder("C:\Temp\")

    Set ff = f.Files

    

    For Each f1 In ff

        Set SrcBook = Workbooks.Open(f1)

        Range("A1:IV" & Range("A65536").End(xlUp).Row).Copy

        ThisWorkbook.Worksheets(1).Activate

        Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial

        Application.CutCopyMode = False

        SrcBook.Close

    Next

End Sub