Sub MaMacro()
Dim CheminDossier$, dossier, i As Byte, chemin$, nomfich$, o As Boolean
CheminDossier = "C:\Documents and Settings\JFL CONTROLE\Bureau\" 'à adapter
dossier = Array("Trames1", "Trames2", "Trames3", "Trames4") '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
Workbooks.Open chemin & nomfich
o = True
End If
On Error GoTo 0
With Workbooks(nomfich)
.Sheets(1).Delete 'supprime la 1ère feuille
Me.Copy Before:=.Sheets(1) 'copie la feuille source
.Save 'enregistrement
If o Then .Close 'si le fichier a été ouvert on le ferme
End With
nomfich = Dir 'fichier suivant du dossier
Wend
Next
End Sub