Macro suppression feuil1 dans tous les classeurs d'un répertoire

Sub OpenAllInDir()
Application.ScreenUpdating = False
'Ouverture de tous les fichiers contenus dans un dossier
Dim Directory As String, I&, Actuel As String
Dim Fich As String, EstOuvert As Boolean
EstOuvert = False
Actuel = ThisWorkbook.Name
'LE dossier ou est effectuée la recherche
'Directory = "C:\Documents and Settings\Papa\Mes documents\"
Directory = ThisWorkbook.Path
With Application.FileSearch
    .LookIn = Directory
    .FileType = msoFileTypeExcelWorkbooks 'Type de document excel
 ' Affiche les documents trouves dans ce directory,path + filename
    If .Execute > 0 Then
    MsgBox "" & .FoundFiles.Count & _
        " fichiers trouvés."
'Si tu veux checker le nom des fichiers qu'il ouvre,
'tu enleves les ' devant les 3 lignes suivantes
'Il affichera le nom des fichiers qu'il va ouvrir,
'puis modifier
'For i = 1 To .FoundFiles.Count
'    MsgBox .FoundFiles(I)
'Next i
    Else
        MsgBox "Aucun fichier  trouvé."
    End If
' Ouvre les documents trouves
For I = 1 To .FoundFiles.Count
 Fich = .FoundFiles(I)
 'récupération du nom du fichier
 Fich = Right((Fich), Len(Fich) - InStrRev(Fich, "\"))
'Teste si le fichier à ouvrir est déjà ouvert
If Fich = Actuel Then
     EstOuvert = True
     Else
'ouvre le classeur
    Workbooks.Open Fich
    EstOuvert = False
Application.Goto Reference:=Feuil1.Cells(2, 1), scroll:=False
Sheets(1).delete
activeworkbook.close true
    End If
 Next I
End With
End Sub

Private Sub nettoieXLS(chemin$)
Dim nfic$
nfic = Dir(chemin & "*.xls")
Application.DisplayAlerts = False
  Do While nfic <> ""
      Workbooks.Open chemin & nfic
       With Workbooks(nfic)
       .Sheets(1).Delete
      .Close True
      End With
      nfic = Dir
  Loop
End Sub

Sub Eraser_I_Take_No_Prisonners()
Application.ScreenUpdating = False
nettoieXLS "c:\tempopo\" 'ici mettre le nom du dossier à traiter
End Sub