envoi par Mail outlook objet shapes classeur se bloque

[jtitin]

Bonjour à tous
j'envoi par mail 2 feuilles du classeur
lors de l'envoi tous ce passe bien, mais mon classeur actif devient en parti bloqué
les objets sur la feuille deviennent inaccéssibles
un panneau comment interdit, s'affiche au passage de la sourie sur les objets
une partie des menus sont grisés.
pour rentre le classeur compètement actif il faut que je clique sur la croix rouge fermeture programme
puis répondre "Annuler" au message

je vous joint un exemple de mon fichier pour test

merci pour votre aide, c'est important

 

[jtitin]

Re : envoi par Mail outlook objet shapes classeur se bloque

Re bonjour
j'ai remarqué que si j'envoi qu'une seule feuille tous marche impécable

Set Sourcewb = ActiveWorkbook
ActiveSheet.Copy
''''Sheets(Array("Feuil1", "Feuil2")).Select
''''ActiveWindow.SelectedSheets.Copy
Set Destwb = ActiveWorkbook

et supression dans le code pour la partie Feuil2

vraiment là je bloque compet

au secours
Merci