Envoi mail avec copier coller spécial image

Bonjour,

je cherche à automatiser la génération d'email à partir d'excel en faisant un copier coller spécial image à partir d'une plage de données dans le mail.

dans le fichier image ci joint, voici ce que j'aimerai

mais avec la macro j'obtiens un erreur au niveau des lignes 33-36

rng.Move wdParagraph, 1

rng.Paste

et de façon aléatoire c'est à dire pas sur tous les postes de travail et pas tout le temps la même ligne.

Sub envoi_mail()

Dim i, j, cproc

Dim OL As Object, myItem As Object, wDoc As Object, rng As Object

j = Sheets("TCD").Range("F4").Value - 1
j = j + 5

' saisie de la procedure

cproc = InputBox("Saisir la procédure supervisée", "Saisie")

For i = 5 To j

    Sheets("final").Range("C23").Value = Sheets("TCD").Range("F" & i).Value
    Sheets("final").Range("C6:D38").CopyPicture

    Set OL = CreateObject("Outlook.Application")
    Set myItem = OL.CreateItem(olMailItem)
    Set wDoc = myItem.GetInspector.WordEditor

    With myItem

        .To = Sheets("final").Range("C23").Value
        .Subject = "Retour sur la supervision managériale " & cproc
        .body = "Bonjour, Voici les résultats de la dernière supervision " & cproc & ". Le premier tableau concerne le lot de dossiers qui a été vu en supervision dans sa totalité, puis le second tableau affiche les résultats sur les dossiers que vous avez contrôlé."
        .Display

        Set rng = wDoc.Content

            rng.InsertParagraphAfter
            rng.Move wdParagraph, 1
            rng.Paste
            rng.Move wdParagraph
    End With

Next i

End Sub

Y'a til une façon de modifier le code pour que ça passe dans tous les cas?

Je vous remercie par avance de votre retour!