macro export image fonctionne plus 2016

Bonjour,

cette macro ne fonctionne plus sous excel 2016. Je necomprends pas pourquoi alors qu'elle fonctionne bien sur mon autre pc avec excel 2013. Les mêmes cases sont cochées dans outils/références sous VBA. Je dois admettre ne pas avoir d'explications. cette macro me sert à copier une plage "NewSeance" contenant des images et du textes. Malheureusement, rien y fait, seul une image blanche est copiée. Si quelqu'un pouvait m'aiguiller...

Merci

Sub exportseancejpg()

Dim NomPlage, NomFich
Dim LeGraph As Object
Dim Rep As String
Dim i As Byte
Application.ScreenUpdating = False
Rep = ActiveWorkbook.Path & "\Fc Séances\Fc Séances modifiées\" 'Répertoire de sauvegarde
NomPlage = Array("NewSeance") 'Nom de tes plages

With ActiveSheet
ActiveWindow.Zoom = 400 'à adapter
For i = LBound(NomPlage) To UBound(NomPlage)
.Range(NomPlage(i)).CopyPicture
Set LeGraph = .ChartObjects.Add(0, 0, .Range(NomPlage(i)).Width, .Range(NomPlage(i)).Height)
LeGraph.Chart.Paste
LeGraph.Chart.Export Filename:=Rep & Range("A4").Value & ".jpg"
LeGraph.Delete
ActiveWindow.Zoom = 100
Next i
End With

End With
Application.ScreenUpdating = True
End Sub