(VBA PowerPoint) Copier formules et coller en valeurs

Bonjour,

Je suis sur PowerPoint 2013. J'aimerais mettre à jour des graphiques powerpoint. Ces derniers reposent sur des feuilles excel incorporées contenant des formules pointant vers un fichier excel extérieur; je les mets à jour par ce code que j'ai trouvé et qui marche nickel :

Sub ChangeChartData()

    Dim pptChart As Chart
    Dim pptChartData As ChartData
    Dim xlWorkbook As Object
    Dim sld As Slide
    Dim shp As Shape

    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasChart Then
                Set pptChart = shp.Chart
                Set pptChartData = pptChart.ChartData
                pptChartData.Activate
                Set pptWorkbook = pptChartData.Workbook
                On Error Resume Next
                'update first link
                pptWorkbook.UpdateLink pptWorkbook.LinkSources(1)
                On Error GoTo 0
                pptWorkbook.Close True

            End If
        Next
    Next

    Set pptWorkbook = Nothing
    Set pptChartData = Nothing
    Set pptChart = Nothing

End Sub

Néanmoins le code préserve les formules dans les feuilles excel incorporées tandis que j'aimerais les remplacer par leurs valeurs pour rendre le powerpoint indépendant. J'ai essayé d'incorporer un :

ChartData.Select
Selection.Copy
PasteSpecial Paste:=xlPasteValues

dans la macro mais ça ne marche évidemment pas.

Auriez-vous une idée de comment faire ?

Merci !

Personne?