Sub Efface_Macro()
Dim CheminDossier$, dossier, i As Byte, chemin$, o As Boolean, NomModule As String
CheminDossier = "C:\Documents and Settings\JFL CONTROLE\Bureau\" 'à adapter
dossier = Array("Contrôles Clients Bis") 'noms des dossiers
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'pour la supression des feuilles
For i = 0 To UBound(dossier)
chemin = CheminDossier & dossier(i) & "\"
nomfich = Dir(chemin & "*.xls*") '1er fichier du dossier
While nomfich <> ""
o = False
On Error Resume Next
If IsError(Workbooks(nomfich).Name) Then 'si le fichier n'est pas déjà ouvert, on l'ouvre
Application.EnableEvents = False
Workbooks.Open chemin & nomfich
o = True
End If
On Error GoTo 0
'Ici tu codes ce que tu veux faire
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets("Page 1").CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Application.EnableEvents = True
If o Then ActiveWorkbook.Close SaveChanges:=True 'si le fichier a été ouvert on le ferme
nomfich = Dir 'fichier suivant du dossier
Wend
Next
End Sub