Effacer ligne dans plusieurs fichiers

Sub test()
Dim dossierXls As Object, fichierXls As Object, classeurXls As Workbook, pathDossier As String

    'récupérer le dossier contenant les fichiers excel
    pathDossier = "C:\Documents and Settings\Joel\Bureau\Miki\Nouveau dossier"
    Set dossierXls = CreateObject("Scripting.FileSystemObject").GetFolder(pathDossier)
    
    'boucler sur chaque fichier du dossier
    For Each fichierXls In dossierXls.Files
        'vérifier qu 'il s'agit bien d'un fichier .xls
        If fichierXls.Name Like "*.xls" Then
            'ouvrir le classeur
            Set classeurXls = Application.Workbooks.Open(fichierXls.Path)
            'supprimer les 10 premières ligne de la première feuille du classeur
            classeurXls.Sheets(1).Rows("1:10").Delete
            'fermer le classeur en sauvegardant les données
            classeurXls.Close True
        End If
    Next fichierXls
    
End Sub

Sub test()
Dim dossierXls As Object, fichierXls As Object, classeurXls As Workbook, pathDossier As String

    'récupérer le dossier contenant les fichiers excel
   pathDossier = "C:\Documents and Settings\Joel\Bureau\Miki\Nouveau dossier"
    Set dossierXls = CreateObject("Scripting.FileSystemObject").GetFolder(pathDossier)
   
    'boucler sur chaque fichier du dossier
   For Each fichierXls In dossierXls.Files
        'vérifier qu 'il s'agit bien d'un fichier .xls
       If fichierXls.Name Like "*.xls" And fichierXls.Path <> ThisWorkbook.Path & "\" & ThisWorkbook.Name Then
            'ouvrir le classeur
           Set classeurXls = Application.Workbooks.Open(fichierXls.Path)
            'supprimer les 10 premières ligne de la première feuille du classeur
           classeurXls.Sheets(1).Rows("1:10").Delete
            'fermer le classeur en sauvegardant les données
           classeurXls.Close True
        End If
    Next fichierXls
   
End Sub