[Excel VBA] recherche fichier en lecture seul

Public Sub searchAllFiles()
Dim myTabFolders()
Dim myTabFiles
Dim sChemin As String
Dim i As Long
Dim j As Long

sChemin = "C:\Mon repertoire"

    If subFolderInFolder(sChemin, myTabFolders()) = False Then
        MsgBox "Erreur"
    Else
        For i = LBound(myTabFolders()) To UBound(myTabFolders())
            If AllFilesInFolder(myTabFolders(i), myTabFiles()) = False Then
                MsgBox "Erreur"
            Else
                For j = LBound(myTabFiles(j)) To UBound(myTabFiles(j))
                    Call FonctionQuiTraiteLeFichier(myTabFiles(j))
                Next j
            End If
        Next i
    End If

    
    
End Sub

'*********************************************************************
' Fonction qui renvoie la liste de tous les fichier d'un répertoire
' Nécessite la référence Microsoft Scripting Runtime
'*********************************************************************

Public Function AllFilesInFolder(ByVal NomDossier As String, ByRef myTab, Optional ByVal ExtentionType As String) As Boolean
Dim fso As Object, dossier As Object, Fich As Object
Dim Files As Object, File As Object
Dim max As Long, ext As String

    'Initialisation du tableau
    ReDim myTab(0)
    '
    ' Création de l'objet FSO
    On Error Resume Next ' AllFilesInFolder_Error

    Set fso = CreateObject("Scripting.FileSystemObject")
    ' Si le nom du dossier est vide, alors je sort de la fonction
    If NomDossier = "" Then Exit Function
    ' Stock les sous-répértoires dans l'objet dossier
    Set dossier = fso.GetFolder(NomDossier)
    
    ' stock dans l'objet Files tous les fichiers de l'objet dossier
    Set Files = dossier.Files
    ' s'il y a plus d'un fichier
    If Files.Count <> 0 Then
        max = 0
        ' pour tous les objets fichiers dans l'objet files
        For Each File In Files
          '
          ' je récupère le nom du fichier via l'objet Fich
          Set Fich = fso.GetFile(File)
          ' si l'extension n'est pas renseignée
          ext = ExtentionType
          If ExtentionType = "" Then ext = fso.GetExtensionName(File)
          '
          If UCase(fso.GetExtensionName(File)) = UCase(ext) Then
            max = max + 1
            ' j'augmente la taille de mon tableau résultat
            ReDim Preserve myTab(1 To max)
            ' Je stock en fin de tableau mon nom de fichier
            myTab(max) = File
          End If
        Next
        ' Je retourne le tableau complet des nom de fichiers
    End If
    '
    ' Libère tous les objets
    Set fso = Nothing
    Set dossier = Nothing
    Set Fich = Nothing
    Set Files = Nothing
    Set File = Nothing
    '
    
    If Err.Number = 0 Then
        AllFilesInFolder = True
        Exit Function
    Else
        AllFilesInFolder = False
    End If
    
End Function

'*********************************************************************
' Fonction qui renvoie la liste de tous les sous-répertoires d'un répertoire
' Nécessite la référence Microsoft Scripting Runtime
'*********************************************************************

Public Function subFolderInFolder(ByVal dossier As String, ByRef myTab) As Boolean
Dim fso As FileSystemObject, monDossier As Folder, sousdossier As Folder
Dim max As Long
ReDim myTab(0)

    On Error Resume Next ' subFolderInFolder_Error

Set fso = New FileSystemObject
Set monDossier = fso.GetFolder(dossier)
    
    For Each sousdossier In monDossier.subFolders
        max = max + 1
        ' j'augmente la taille de mon tableau résultat
        ReDim Preserve myTab(1 To max)
        ' Je stock en fin de tableau mon nom de fichier
        myTab(max) = sousdossier
    Next


    If max = 0 Then
        subFolderInFolder = False
        Exit Function
    Else
        subFolderInFolder = True
    End If

End Function

Const READ_ONLY = 1

strComputer = "."
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path = '\\TEST\\' " & "AND Drive = 'C:' AND Writeable = FALSE")

For Each objFile In colFiles
    Set objReadOnlyFile = objFSO.GetFile(objFile.Name)
    objReadOnlyFile.Attributes = objReadOnlyFile.Attributes Xor READ_ONLY 
Next