Bonjour,
Essaie :
Sub EnvoyerTCDparMail2()
Dim TCD As Range, MailApp As Object, Mail As Object, Ws As Worksheet, Destinataire$, Fichier$, CorpsMail$, chemin$
chemin = ThisWorkbook.Path & "\tcd.png"
Set Ws = ActiveSheet
Set TCD = Ws.PivotTables("tcd1").TableRange2
If TCD Is...