Macro : creer des feuillets sur plusieurs fichiers automatiquement

Sub FeuilDemain()
Dim F$, F1$, chemin$, nomfich$, o As Boolean
Application.ScreenUpdating = False
On Error Resume Next
F = Format(Date, "dd mmmm") 'nom de la feuille recherchée (date du jour)
F1 = Format(Date + 1, "dd mmmm") 'nom de la feuille de demain
[COLOR="Red"]chemin = "N:\Shared Area\CREATIVE SERVICES\Workflow Docs" 'à adapter éventuellement[/COLOR]
nomfich = Dir(chemin & "\*.xls") '1er fichier du dossier
While nomfich <> ""
  o = False
  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
  Windows(nomfich).Visible = True 'au cas où la fenêtre serait masquée, on l'affiche
  With Workbooks(nomfich)
    If IsError(.Sheets(F1).Name) Then
      .Sheets(F).Visible = True 'au cas où la feuille serait masquée, on l'affiche
      .Sheets(F).Copy After:=.Sheets(F)
      With .Sheets(.Sheets(F).Index + 1) 'avec la nouvelle feuille
        .Name = F1 'on la renomme avec la date de demain
        [COLOR="red"].Range("A2:Z65536").ClearContents 'effacement à adapter[/COLOR]
      End With
      .Save 'enregistre le fichier
    End If
  End With
  If o Then ActiveWorkbook.Close 'si le fichier a été ouvert, on le referme
  nomfich = Dir 'fichier suivant du dossier
Wend
End Sub

F = Format(Date, "d.m") 'nom de la feuille recherchée (date du jour)
F1 = Format(Date + 1, "d.m") 'nom de la feuille de demain

F = Format(Date, "dd.mm") 'nom de la feuille recherchée (date du jour)
F1 = Format(Date + 1, "dd.mm") 'nom de la feuille de demain