Ouvrir un fichier le modifier et le refermer

Sub RenommerOngletEtFichier()
Dim curFile As Object
Dim curWbk As Excel.Workbook
Dim nouveauNomOnglet As String, nouveauNomClasseur As String, pathDossier As String

    'chemin du dossier contenant les fichier à renommer
    pathDossier = "C:\test"
    'nom à donner au onglets
    nouveauNomOnglet = "nouveauNomOnglet"
    
    'boucler sur chaque fichier du dossier
    For Each curFile In CreateObject("Scripting.FileSystemObject").GetFolder(pathDossier).Files
        
        'si il s'agit bien d'un fichier excel
        If UCase(Right(curFile.Name, 3)) = "XLS" Then
            
            'ouvrir le fichier
            Set curWbk = Application.Workbooks.Open(curFile.Path)
            
            'modifier le nom de l'onglet
            curWbk.Sheets(1).Name = nouveauNomOnglet
            
            'générer le nouveau nom du classeur
            nouveauNomClasseur = curWbk.Path & "\" & nouveauNomOnglet & "_" & Mid(curWbk.Sheets(1).Range("A4").Text, 3, 2)
            
            'fermer le classeur en enregistrant les modification
            curWbk.Close True
            
            'renommer le fichier avec le nouveau nom
            Name curFile.Path As nouveauNomClasseur
            
        End If
    Next curFile
    
End Sub