XL 2016 Problème de compatibilité Excel sur export

[JONEY76]

Bonsoir à tous,

J'ai ici un code qui fonctionne très bien sur Excel 2007, mais qui plante sur Excel 2016.
Ce code permet de créer une image temporaire d'une plage de cellules d'une feuille puis de l'exporter dans un dossier.

Le code plante à : .paste
Mais pourquoi ce plantage uniquement sur 2016?

Sub CelluleToJpeg()

    With Feuil1
        'Copie la cellule en tant qu'image
        .Range("A25:d31").Select
       
        Selection.CopyPicture
       
        'Créer un graphique temporaire
        With .ChartObjects.Add(Cells(1, 1).Left, Cells(1, 1).Top, Cells(1, 1).Width + 250, Cells(1, 1).Height + 100).Chart
            'Y passe l'image
            .Paste
            'Export dans le répertoire du fichier xl
            .Export ThisWorkbook.Path & "\paint\Sans titre.jpg", "JPG"
        End With

        'Supprimer le graphique temporaire
        .ChartObjects(Feuil1.ChartObjects.Count).Delete

    End With

End Sub

 

[JONEY76]

A première vue, en mode débogage manuel, ça passe mais j'ai comme l'impression que le code s’exécute trop rapidement et du coup, l'image obtenue n'est pas complète..
Bizarre...