VBA - Envoi d'un courriel automatique d'un segment

MonMessage.to = " = sub EnterValue (Cell(5,26))" 

MonMessage.to = "adresse1;adresse2;..." 

MonMessage.to =  Workbooks(?).Sheets(?).Cells(3,"Z")

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim apprenant As Range, email As Range
    Dim sh_temp As Worksheet, contenu As String, graphe As ChartObject
    
    '// Assignation apprenant et adresse mail associée
    With Target
        Set apprenant = .VisibleFields(1).DataRange
        Set email = .VisibleFields(2).DataRange
    End With
        
    '// Confirmation envoi du mail
    If Not MsgBox("Souhaitez-vous envoyer le graphique à " & apprenant & " ?", 36, "Confirmation") = 6 Then Exit Sub
    
    '// création feuille temporaire et copie des graphique à envoyer sur la feuille temporaire
    Sheets.Add After:=Sheets(Sheets.Count): Set sh_temp = Sheets(Sheets.Count): sh_temp.Activate
    For Each graphe In Me.ChartObjects
        graphe.Copy
        sh_temp.Range(graphe.TopLeftCell.Address).PasteSpecial (xlPasteAll)
    Next graphe

    '// Création mail et envoi ......................................................................................
    With sh_temp
        With .MailEnvelope
            'Crée le contenu du message avec insertion de sauts de ligne
            contenu = "***The English follows the French***"
            contenu = contenu & Chr(10) & Chr(13)
            'les caractères Chr indique un saut de ligne'
            contenu = contenu & "Bonjour" & Chr(10) & Chr(13)
            contenu = contenu & "Voici trois graphiques résumant la situation de votre apprenant pour janvier. Vous trouverez un premier graphique indiquant le nombre absence par jour de votre employé. Un deuxième graphique montrant le nombre de journée de recouvrement. Le troisième graphique démontrant le nombre de total de retard. Si vous n'êtes plus le directeur de l'apprenant, s'il-vous-plait nous avisez ou pour toute autre erreur. Si vous avez des questions veuillez consulter le document des mesures de contrôles " & Chr(10) & Chr(13)
            contenu = contenu & "Hello" & Chr(10) & Chr(13)
            contenu = contenu & "You will find three graphics illustrating the situation of your learner for the month of January. The first graphic indicates the number of absences per days of your employee. The second graphic illustrates the number of day of absence. The third graphic illustrates the total time of delay. If you're no longer the manager of the learner, please notify us. If you've any question please consult the document bellows on control measures" & Chr(10) & Chr(13)
            contenu = contenu & "CSC"
            .Introduction = contenu
            
            'Destinataires, objet et envoi
            With .Item
                .To = email
                .CC = ""
                .BCC = ""
                .Subject = "Situation générale de l'apprenant pour le mois"
                .Send
            End With
        End With
    End With
    
    '// Attente complétude opération d'envoi du mail
    DoEvents
    
    '// suppression feuille temporaire et sauvegarde classeur
    Application.DisplayAlerts = False
    sh_temp.Delete
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    
End Sub