Sub Macro1()
Dim chem As String 'déclare la variable chem (CHEMin d accès)
Dim fs, d, f1, fd 'déclare les variables fs, d, f1 et fd
Dim t As Double 'déclare la variable t (Total)
chem = ThisWorkbook.Path & "\" 'définit le chemin
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 <> "MARQUE - TOTAL.xls" Then 'condition : si le nom du fichier est différent de "MARQUE - TOTAL.xls"
Workbooks.Open chem & f1.Name 'ouvre le fichier
'actualise la variable t si la cellule L10 de l'onglet "Plan forecast" est numérique
If IsNumeric(Workbooks(f1.Name).Sheets("Plan forecast").Range("L10").Value) Then t = t + CDbl(Workbooks(f1.Name).Sheets("Plan forecast").Range("L10"))
Workbooks(f1.Name).Close SaveChanges:=False 'ferme le classeur
End If 'fin de la condition
Next f1 'prochain classeur du dossier
Sheets("Plan forecast").Range("L10") = t 'place en L10 de l'onglet "Plan forecast" le total
End Sub