bonsoir Yves
dans l'exemple joint ,uniquement les feuilles nommées "Feuil2" et "Feuil3" sont envoyées par mail
Sub envoiMailEtQuelquesFeuilles()
Sheets(Array("feuil2", "Feuil3")).Copy ' créée une copie des feuilles cibles dans un nouveau classeur
ActiveWorkbook.SendMail Recipients:="LeForumXLD@net.fr" 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub
bonne soiree
MichelXld