Envoi email automatisé

Bonjour,

J'ai récupéré sur ce site une macro (ci-dessous) permettant d'envoyer directement une feuille ou un classeur entier, j'ai affecté cette macro à un bouton et c'est ok.

Toutefois, je souhaiterai rentrer une adresse email dans mon programme afin que lorsque je clique sur le bouton actuel, l'adresse soit déjà renseignée.

Merci d'avance,



Sub SortirUserForm()
Dim Msg As Byte
Msg = MsgBox("Etes-vous sûr de vouloir envoyer le classeur entier ? " & _
vbCrLf & " à : " & MailAdresse, vbYesNo + vbQuestion, "Thierry's Démo")
If Msg = 6 Then
Sheets(1).Range("A1") = MailAdresse
Sheets(1).Range("A2") = MailSubject
MailAdresse = ""
MailSubject = ""
Application.OnTime Now + TimeValue("00:00:01"), "SendWorkBook"
Else: MsgBox "Pas Glop Glop...", vbInformation, "Thierry's Démo LOL !"
End If
End Sub

'le ActiveWorkbook.SendMail (ou ThisWorkbook) depuis un UserForm plante la merde
'avec une error de path...C'est pour çà tout ce sbinz...

Sub SendWorkBook()
Dim Maille As String
Dim Sujet As String
Maille = Sheets(1).Range("A1")
Sujet = Sheets(1).Range("A2")

ThisWorkbook.SendMail Maille, Sujet
MsgBox "Votre classeur a bien été envoyé"
End Sub