Option Explicit
Sub Macro()
Dim chem As String
Dim fs, d, f1, fd
Dim cl As Workbook
Dim cel As Range
chem = ThisWorkbook.Path & "\" 'définit le chemin, ici c'est le dossier courant
Set fs = CreateObject("Scripting.FileSystemObject") 'définit la variable fs (Fichiers Système)
Set d = fs.GetFolder(chem) 'definit la variable d (dossier)
Set fd = d.Files 'définit la variable fd (Fichiers du Dossier)
For Each f1 In fd 'boucle sur tous les fichier du dossier
If f1.Name <> "Decleor - TOTAL.xls" Then
Workbooks.Open chem & f1.Name
End If
Next f1
For Each cl In ThisWorkbook
Rows(10).Insert
Next cl
For Each cl In Workbooks
If cl.Name <> ThisWorkbook.Name Then cl.Close SaveChanges:=True
Next cl
End Sub