XL 2016 Extraction de format de cellule dans un fichier fermé

Sub Lire_Fichier()
    Dim Nom_Fichier$, Classeur_Temp As Workbook
    Application.ScreenUpdating = False 'désactivation de l'affichage
    Application.DisplayAlerts = False 'désactivation des alertes utilisateurs
    On Error GoTo Gere_Erreurs 'gestion d'erreurs
    Nom_Fichier = "\\serveur\dossier\fichier.Xlsx" 'chemin du fichier à ouvrir
    Set Classeur_Temp = Workbooks.Open(Filename:=Nom_Fichier, ReadOnly:=True) 'ouverture du fichier
    'code à exécuter
        '
        '
    'fin du code à exécuter
    Classeur_Temp.Close False 'fermeture du fichier sans enregistrement
    Set Classeur_Temp = Nothing 'libération variable
    On Error GoTo 0 'rétablissement gestion d'erreur par défaut
Gere_Erreurs:
    Application.ScreenUpdating = True 'réactivation de l'affichage
    Application.DisplayAlerts = True 'réactivation des alertes
End Sub

    Dim Range_Ref As Range
    With Sheets("Matrice tours VH 2021-2022")
        Set Range_Ref = .Cells(6, Application.Match(CLng(DateValue("01/01/2022")), .Rows("6:6").Value2, 0))
    End With
    MsgBox Range_Ref.Address

Sub Lire_Fichier()
    Dim Nom_Fichier$, Classeur_Temp As Workbook, Range_Ref As Range
    Application.ScreenUpdating = False 'désactivation de l'affichage
    Application.DisplayAlerts = False 'désactivation des alertes utilisateurs
    On Error GoTo Gere_Erreurs 'gestion d'erreurs
    Nom_Fichier = "\\serveur\dossier\fichier.Xlsx" 'chemin du fichier à ouvrir
    Set Classeur_Temp = Workbooks.Open(Filename:=Nom_Fichier, ReadOnly:=True) 'ouverture du fichier
    'code à exécuter
    With Classeur_Temp.Sheets("Matrice tours VH 2021-2022")
        Set Range_Ref = .Cells(6, Application.Match(CLng(DateValue("01/01/2022")), .Rows("6:6").Value2, 0))
    End With
    With Range_Ref
        'code à exécuter pour Range_Ref
        MsgBox "Adresse de la cellule contenant la date cherchée : " & .Address, vbOKOnly + vbInformation
        'fin du code à exécuter pour Range_Ref
    End With
    'fin du code à exécuter
    Set Range_Ref = Nothing 'libération variable
    Classeur_Temp.Close False 'fermeture du fichier sans enregistrement
    Set Classeur_Temp = Nothing 'libération variable
    On Error GoTo 0 'rétablissement gestion d'erreur par défaut
Gere_Erreurs:
    Application.ScreenUpdating = True 'réactivation de l'affichage
    Application.DisplayAlerts = True 'réactivation des alertes
End Sub

Set Range_Ref = Nothing 'libération variable
Set Classeur_Temp = Nothing 'libération variable