Finalement je ne suis pas partie sur la création d'un classeur par feuille. mais j'envoie le mail depuis le classeur initial.
Voici le macro
Sub envoimail()
Dim OlApp As Object, OlMail As Object
Dim Adr1$, Chemin$, Fichier$, Nom$, Rep_Xlsx
Chemin = ThisWorkbook.Path & "\"
Nom = ActiveSheet.Name...