Je pense avoir trouvé !

Mais les 3 dernières lignes de commande ne sont pas prise en compte dans la macro

Et je n'arrive pas à faire en sorte qu'elles soient actives.

Est-ce que quelqu'un pourrait m'aider ?

Merci à vous !!!

Sub Envoi()
Dim Dest As String, Sujet As String
 Sheets("Feuil4").Select 'Saisir le nom exact la feuille
 ActiveSheet.Copy 'crée une copie de la feuille active
 Dest = xxxxxx.xxx@xxx.xx 'Saisir l'adresse mail
 Sujet = "Envoi Test" 'mettre le sujet de l'envoi
 ActiveWorkbook.SendMail Dest, Sujet, True
 Application.DisplayAlerts = False
 ActiveWorkbook.Close 'ferme la copie de la feuille active
 Application.DisplayAlerts = True
End Sub