Option Explicit
Public Sub IniGlobal()
Dim Rep As String, Prefixe As String, FileName As String
Dim DlignG As Long, DlignEp As Long
Prefixe = "Test_Ep"
Rep = ThisWorkbook.Path & "\" 'Répertoire des fichiers
FileName = Dir(Rep & Prefixe & "*.xls") 'Nom générique des fichiers Ep
'Effacement des données de Global
ThisWorkbook.Activate
DlignG = Sheets("Sequence").Range("A65536").End(xlUp).Row
If DlignG > 1 Then Sheets("Sequence").Range("A2:A" & DlignG).EntireRow.Delete
'Détection des fichiers Ep et recopie vers Global
While FileName <> ""
ThisWorkbook.Activate
DlignG = Sheets("Sequence").Range("A65536").End(xlUp).Row
Workbooks(FileName).Activate
DlignEp = Sheets("Sequence").Range("A65536").End(xlUp).Row
If DlignEp = 1 Then GoTo Suivant
'variante 1
Sheets("Sequence").Range("A2:E" & DlignEp).Copy
ThisWorkbook.Activate
Range("A" & DlignG + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
'variante 2
' Sheets("Sequence").Range("A2:E" & DlignEp).Copy _
' Destination:=ThisWorkbook.Sheets("Sequence").Range("A" & DlignG + 1)
Suivant: 'Fichier suivant
FileName = Dir
Wend
End Sub