Bonjour zorbrax, le Forum,

Ce code fait parfaitement son travail (y compris les 3 dernières lignes !).

Je résume le déroulement de ton code :

1. Tu copies une feuille de calcul (ce qui crée automatiquement un nouveau classeur).
2. Tu envoies ce nouveau classeur par mail.
3. Tu fermes ensuite ce nouveau classeur.

J'ai testé et ton code fait correctement son travail, sans problème.

Je me permets simplement de te proposer ces quelques lignes à peine simplifiées, en lieu et place (ça ne change rien au déroulement attendu) :

Sub Envoi()
Dim Dest As String, Sujet As String
    Sheets("Feuil4").Copy 'Saisir le nom exact la feuille à copier
    Dest = "xxxxxx.xxx@xxx.xx" 'Saisir l'adresse mail
    Sujet = "Envoi Test" 'mettre le sujet de l'envoi
    With ActiveWorkbook
       .SendMail Dest, Sujet, True
       .Close SaveChanges:=False    'ferme LA COPIE de la feuille
    End With
End Sub

Bien cordialement,