Tableaux en image suivant un Range

Bonjour,

J'ai un problème pour afficher dans un email Outlook des tableaux en images issus de "Range Cible"

Je ne sais pas si je vais être suffisamment clair

Par exemple, sur les lignes de code, ci-dessous :

Set r = smail.Range("AE6")                    'IMAGE du TABLEAU DE SYNTHESE : AE6
r.CopyPicture xlScreen, xlBitmap

idem pour :

Set Amail = ActiveWorkbook.Sheets("Graph. KPI EDUs")
Set r2 = Amail.Range("M2")                   'IMAGE du GRAPHIQUE EDU 1
r2.CopyPicture xlScreen, xlBitmap

idem pour :

Set r3 = Amail.Range("M3")                   'IMAGE du GRAPHIQUE EDU 2
r3.CopyPicture xlScreen, xlBitmap

Après vérification :

Range("AE6") est bien défini suivant sa case ciblée (ex: "A2:J23"), mais l'image 'r.CopyPicture" générée ne prend pas en compte la zone A2:J23 (juste 1 ou 2 cases on dirait)

Le résultat de mes "images" actuelles

J'ai essayé plusieurs trucs mais sans résultat ou alors de multiples messages d'erreur

Je n'arrive pas à voir d'où vient mon erreur ou ce qu'il faut modifier => Une idée ?

Merci à vous encore pour votre aide