XL 2016 Macro Extraction onglets données en valeurs

[bast0504]

Bonjour à tous,

J'utilise la macro suivante pour extraire des onglets et copier les données en valeurs. Elle fonctionne bien sauf avec les formules INDIRECT
Comment corriger cette macro pour que les données extraites avec les fonctions indirectes soient aussi copier en valeurs ?

Merci par avance

Sub copierOK2()
Dim Sh As Worksheet, Origine As String
Origine = ActiveSheet.Name
For Each Sh In ThisWorkbook.Worksheets
    If Sh.Visible = xlSheetVisible Then
        Sh.Copy
        ActiveSheet.Cells.Copy
        ActiveSheet.[a1].PasteSpecial Paste:=xlPasteValues
        ActiveWorkbook.SaveAs (Sh.Name), FileFormat:=51
        ActiveWorkbook.Close
    End If
Next Sh
Sheets(Origine).Activate
End Sub

 

[bast0504]

Bonjour

Je remonte le poste pour information

Merci