Supprimer lignes spécifiques dans les fichiers d'un répertoire

Sub SupprimerNoREAD()
    'creation de la liste des fichiers contenu dans le repertoire qui contient ce même fichier
    Dim Chemin As String, Fichier_xlsx As String, CompteurDeFichier As Integer
    Dim MessageFinDeTraitement As String, MaFeuille As Worksheet
    Dim Repertoire As FileDialog, Chemin_et_Fichier As String
    
    'fige ecran
    Application.ScreenUpdating = False
    'Selection d'un repertoire
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show     'boite a dialogue choix repertoire
    If Repertoire.SelectedItems.Count > 0 Then  'choix ok
        Chemin = Repertoire.SelectedItems(1)
  
        Fichier_xlsx = Dir(Chemin & "\*.xlsx") 'recupération 1er fichier .xslx
        If Fichier_xlsx <> Empty Then    'fichier xlsx existe
            Do While Fichier_xlsx <> Empty 'boucle tant que fichier xlsx existe
                '-------------------- Traitement fichier xlsx----------------------
                Call SupprimerNoREAD_Traitement(Chemin, Fichier_xlsx)
                '---------------------------------------------------------------------------------------------
                Fichier_xlsx = Dir ' suivant
            Loop
            Msg = "Terminé"
        Else
            Msg = "Aucun Fichier trouvé dans le répertoire " & Chemin & " ! "
        End If
        MsgBox Msg
    Else    'choix pas ok
        MsgBox "Aucun Répertoire Sélectionné"
        Exit Sub
    End If
    Application.ScreenUpdating = True
End Sub

Sub SupprimerNoREAD_Traitement(Chemin, Fichier_xlsx)
    
    Dim der As Long
    Dim i As Long
            
    'ouverture fichier xlsx
    Workbooks.Open Filename:=Chemin & "\" & Fichier_xlsx, Local:=True
    With ActiveWorkbook.ActiveSheet
    'Sélection d'une colonne
   
    der = Range("C65536").End(xlUp).Row
    For i = der To 1 Step -1
        If Range("C" & i) = "NO READ" Then Rows(i).Delete
    Next i

       
    'sauvegarde en xlsx
    ActiveWorkbook.Save
    End With
    ActiveWorkbook.Close False  'fermeture fichier
End Sub