Macro Envoyer

Bonjour,

je cherche à créer une macro Excel pour envoyer les différentes feuilles (onglets) du classeur aux destinataires différents (chaque feuille (onglet) à un destinataire)
un exemple:
je veux envoyer "Feuil2" du "Classeur1" à un destinataire

1. j'ai créé dans la "Feuil1" un Bouton de Commande ("Envoie");
2. j'ai commencer ma macro et j'ai écris le programme suivant:

Private Sub Envoie_Click()

'Cacher les Feuilles à ne pas envoyer
Sheets(Array("Feuil1", "Feuil3")).Select
ActiveWindow.SelectedSheets.Visible = False
'Enregistrer le document
ActiveWorkbook.Save
'Envoyer le fichier
Application.Dialogs(xlDialogSendMail).Show
'Faire apparaitre les autres feuilles
Sheets("Feuil1").Visible = True
Sheets("Feuil3").Visible = True
End Sub

Mes problèmes sont:

- j'active la fenètre de l'envoie du fichier mais je n'arrive pas à automatiser l'envoie...
- automatiser les destinataires (l'adresse du destinataire se trouves dans la cellule "B2" de "Feuil2"

Merci à l'avance pour votre aide