Copier/Coller plusieurs classeurs via VBA

Option Explicit
'------
Sub compiler_CaE()
Dim Chemin As String, Fich As String
Dim Derlig As Integer, Ligvide As Long, Tampon

'fige le défilement de l'écran
Application.ScreenUpdating = False

Chemin = ThisWorkbook.Path
ChDir Chemin
Fich = Dir("*.xlsm")
While Fich <> "" And Fich <> "classeur5.xlsm"
    Workbooks.Open Filename:=Fich 'ouvre le classeur
    With Sheets("saisie")
        Derlig = .Columns("C:E").Find(what:="*", searchdirection:=xlPrevious).Row
        Tampon = .Range("C1:E" & Derlig) 'mémorise les données à compiler dans classeur5
     End With
    Workbooks(Fich).Close

    With ThisWorkbook.Sheets("Synthèse Globale")
        Ligvide = .Columns("C:E").Find(what:="", after:=Range("C:" & .Cells.Rows.Count)).Row
        Cells(Ligvid, "C").Resize(UBound(Tampon), 3) = Tampon
    End With

'affecte le fichier suivant (utilisation du joker " * " utilisé pour la def du 1° fichier)
    Fich = Dir
Wend

Sheets("Synthèse Globale").Activate
MsgBox "compilation terminée"
End Sub