Microsoft 365 problème CHDIR

Do Until MONFICHIER = ""
     Workbooks.Open Filename:=MONFICHIER, UpdateLinks:=3

MONFICHIER = Dir(FICHIER_REPORTING)

Sub fichiers()
  repertoire_fichiers = "X:\Dossiers reçus\"
  Debug.Print repertoire_fichiers
  FICHIER_REPORTING = "*dossier 2023.xlsm"
End Sub

Sub fichiers(repertoire_fichiers, FICHIER_REPORTING) 'pas de dimension sur les variables c'est une passerelle
    'il faudra quand même m'expliquer l'utilité d'un passerelle quand même hein !!! mais bon je juge pas LOL
    repertoire_fichiers = "X:\Dossiers reçus\"'attention veiller a l'antislash a la fin
    FICHIER_REPORTING = "*dossier 2023.xlsm"
End Sub

Sub recup_TOUT()
    Dim repertoire_fichiers
    Dim FICHIER_REPORTING
    Dim mafeuille As Worksheet
    Dim fichier_recap As String
    Dim MONFICHIER As String 'string et porte jartelle pas burk de bouc
    fichier_recap = ActiveWorkbook.Name
    
    'on instruit les variable par la sub fichier avec les variable en passerelle (un peu tiré par les cheveux mais bon je juge pas
    Call fichiers(repertoire_fichiers, FICHIER_REPORTING)
    
    'ensuite je ne sais pas a quoi ça te sert mais bon
    'd 'abords on fait un chdrive sinon le chdir ne fonctionnera pas si le disque n'est pas celui du system
    ChDrive Left(repertoire_fichiers, 1)
    'ensuite on fait un chdir
    ChDir repertoire_fichiers
    
    chemin = repertoire_fichiers & FICHIER_REPORTING
    'avant de faire des triple loop en veux tu en voilà on teste si un dir dit quelque chose
    If Dir(chemin) <> "" Then
        
        Lig = 0
        d = Dir(chemin)
        While d <> ""
            Lig = Lig + 1 ' on fait quoi avec lig ??,
            d = Dir
        Wend
    End If
    
    
    'et alors là c'est le must y a pas le chemin de base
    MONFICHIER = Dir(FICHIER_REPORTING) 'wrong!! wrong !! wrong !!
End Sub

Sub recup_mandataire()

fichier_recup = ActiveWorkbook.Name
Sheets("mandataires").Select
Range("a3:z500").ClearContents

ChDir "X:\Dossiers reçus"

Chemin = "X:\Dossiers reçus\*dossier comptable 2020.xlsm"

Lig = 0
D = Dir(Chemin)
While D <> ""
    Lig = Lig + 1
    D = Dir
Wend
       
MONFICHIER = Dir("* - dossier comptable 2020.xlsm")
K = 1
     
Do Until MONFICHIER = ""
Application.StatusBar = "Ouverture en cours du fichier : " & MONFICHIER & " (Fichier n° " & K & "/" & Lig & ")"
Workbooks.Open Filename:=MONFICHIER
Sheets(1).Select
code = Cells(5, 1).Value
nom = Cells(5, 2).Value
       
Sheets("1 - Identification").Select
mandataire = Cells(43, 3).Value
fonctions = Cells(45, 3).Value

Windows(fichier_recup).Activate
Cells(1500, 1).Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

ActiveCell.Value = code
ActiveCell.Offset(0, 1).Value = nom
ActiveCell.Offset(0, 2).Value = mandataire
ActiveCell.Offset(0, 3).Value = fonctions

Windows(MONFICHIER).Activate
K = K + 1
ActiveWorkbook.Close False

MONFICHIER = Dir
Loop
End Sub

dir(*.*) 'données tous les fichiers du répertoire courant.


'si j'ai fait au préalable un
mkdir "c:\toto" 'le dir retour tous les fichiers du répertoire Toto

const repertoire_fichiers = "X:\Dossiers reçus\", FICHIER_REPORTING = "*dossier 2023.xlsm" 'declartion des constantes