Macro envoi Mail format Excel (Sélection active)

Bonjour,

Je souhaiterais si possible avoir de l'aide sur ma macro.

Je l'ai créé pour envoi en pièce jointe en pdf (Sélection active)

Mais je n'arrive pas à faire le même chose en format Excel

Pouvez vous m'aider svp.

Je vous remercie

Voir fichier