XL 2016 Récupérer le contenu de cellule par VBA

Private Sub Workbook_Activate()
Dim chemin$, fichier$, feuille$, lig&, form$, h&
chemin = ThisWorkbook.Path & "\" 'dossier commun
fichier = Dir(chemin & "SG*.xls*") '1er fichier du dossier
feuille = "Factures" 'nom des feuilles
lig = 5 '1ère ligne de restitution
Application.ScreenUpdating = False
With Sheets(feuille)
    If .ListObjects.Count Then .ListObjects(1).Unlist 'convertit le tableau structuré en plage
    Range(lig & ":" & .Rows.Count).Delete 'RAZ
    While fichier <> ""
        form = "'" & chemin & "[" & fichier & "]" & feuille & "'!"
        h = ExecuteExcel4Macro("MATCH(""zzz""," & form & "C12)")
        If h > 4 Then
            With .Cells(lig, 1).Resize(h - 4, 13) 'plage de A à M
                .FormulaArray = "=""""&" & form & "A5:M" & h 'formule matricielle
                .Value = .Value 'supprime la formule
            End With
            lig = lig + h - 4
        End If
        fichier = Dir 'fichier suivant
    Wend
    With .Range("H5:H" & .Rows.Count)
        .Replace ",", ".", xlPart 'remplace la virgule par le point
        .Replace " ", "", xlPart 'supprime les espaces
    End With
    .ListObjects.Add xlSrcRange, Range("A4:M" & lig - 1), , xlYes 'recrée le tableau structuré
End With
End Sub

Private Sub Workbook_Activate()
Dim chemin$, fichier$, feuille$, i&, form$, h&
chemin = ThisWorkbook.Path & "\" 'dossier commun
fichier = Dir(chemin & "SG*.xls*") '1er fichier du dossier
feuille = "Factures" 'nom des feuilles
Application.ScreenUpdating = False
With Sheets(feuille).ListObjects(1) 'eableau structuré
    i = 2 '1ère ligne de restitution
    If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete 'RAZ
    While fichier <> ""
        form = "'" & chemin & "[" & fichier & "]" & feuille & "'!"
        h = ExecuteExcel4Macro("MATCH(""zzz""," & form & "C12)")
        If h > 4 Then
            With .Range(i, 1).Resize(h - 4, 13) 'plage de A à M
                .Formula = "=""""&" & form & "A5" 'référence relative de la 1ère cellule copiée
                .Value = .Value 'supprime les formules
            End With
            i = i + h - 4
        End If
        fichier = Dir 'fichier suivant
    Wend
    If i = 2 Then Exit Sub
    With .DataBodyRange.Columns(8)
        .Replace ",", ".", xlPart 'remplace la virgule par le point
        .Replace " ", "", xlPart 'supprime les espaces
    End With
End With
End Sub