Récupération valeur cellule dans différents fichiers

Bonjour,

Je voudrais récupérer la valeur de la cellule H44 dans différents fichiers (onglet "Facturier") et l'envoyer dans un fichier appelé synthèse.

Le macro récupère bien la valeur de la cellule dans tous les dossiers et la place au bon endroit, le problème est qu'il récupère la "formule" de la cellule h44 (une simple somme h41+h42) et non le "résultat" qui est un montant (ex: 245,00€).(voir image)

Voila le code,

Sub FusionFichiers()

 Dim Classeur As String
  Dim Chemin As String
  Dim Onglet As Worksheet
  Dim LigneFin As Long, LigneFinACopier As Long, LigneFinCopie As Long
  'Exemple : Chemin à adapter
  Chemin = "C:\Users\marbr\Google Drive\Marbrerie\Facture\2020\"
  'Si uniquement des fichiers xls ou xslx , modifier l'extension en conséquence
  Classeur = Dir(Chemin & "*.xlsm")
 If Classeur = "" Then MsgBox " Le répertoire " & Chemin & " est vide ou inexistant": Exit Sub
  Do
  If Classeur <> "" Then
  Application.EnableEvents = False
  Workbooks.Open Chemin & Classeur
  For Each Onglet In Workbooks(Classeur).Worksheets
  'Ne traite que les onglets dont le nom est Feuil1 : A adapter
       If Onglet.Name = "Facturier" Then
         LigneFinACopier = Onglet.Range("H" & Rows.Count).End(xlUp).Row
         LigneFinCopie = ThisWorkbook.Sheets("Synthese").Range("A" & Rows.Count).End(xlUp).Row + 1
         Onglet.Range("H44:H44" & LigneFinACopier).Copy Destination:=ThisWorkbook.Sheets("Synthese").Range("A" & LigneFinCopie)
        Exit For
       End If
  Next
  Workbooks(Classeur).Close False
  Application.EnableEvents = True
  End If
  Classeur = Dir
  Loop Until Classeur = ""
  End Sub
  

Quelqu'un aurait une bribe de solution pour moi?

Merci d'avance,

Bonjour rejo007 et

Je suis étonné que ton code fonctionne

Onglet.Range("H44:H44" & LigneFinACopier)

Ensuite, tu peux faire autrement qu'un copier coller, un truc du style

ThisWorkbook.Sheets("Synthese").Range("A" & LigneFinCopie).Value = Onglet.Range("H44:H" & LigneFinACopier).Value 

A+

Top...

Un grand merci