Sub ImportDonnees()
Dim Chemin As String, Fichier As String
Dim Ws As Worksheet
Dim Ligne As Long
Application.ScreenUpdating = False
Chemin = "C:\Users\***\********\TEST\2. Mast\Datas\"
Ligne = 5
Fichier = Dir(Chemin & "*.xlsx")
Do While Fichier <> ""
With Workbooks.Open(Chemin & Fichier)
With .Sheets(1)
Cells.UnMerge
End With
.Range("A5:V" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Ws.Range("A" & Ligne)
.Close savechanges:=False
End With
Ligne = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1
Fichier = Dir
Loop
End Sub