XL 2016 Macro Extraction onglets données en valeurs

bast0504

XLDnaute Occasionnel
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

Code:
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
 

Discussions similaires