Envoi d'un Mail

bonjour à tous,
Je suis entrain de mettre en place un fichier (qui sera en lecture seul, stocké dans une base et utilisé par N personne), Ce fichier une fois renseigné et "enregistrer-sous", je le transfert en pièce joint à un collègue en y joignant un autre fichier type .Word , PDF ..... Ce collègue qui lui même enfin les transferts à une 3 ième personne.
1 ier soucis:
1 premier code pour envoyer le mail :

Sub Mail_Destinataire()
If Range("Destinataire") = "" Then
MonMessage = MsgBox(Prompt:=" - Merci de sélectionner un Destinataire.", _
Title:="Destinataire", Buttons:="64")
Exit Sub
End If
Dim Mail As Variant
Mail = Range("Destinataire") & "@free.fr"
Application.Dialogs(xlDialogSendMail).Show Mail
End Sub
Je dois exécuter ce code 3 fois (toujours 3 et jamais 4, rarement 2) il bloque à "Application.Dialogs(xlDialogSendMail).Show Mail"
(après je joins le 2 ième fichier).

2 ième soucis :
la personne qui reçois ce fichier en pièce jointe à pré l'avoir complété le transfert (toujours en pièce jointe et avec l'autre fichier.
c'est içi que pour l'instant sur le code JE BLOQUE.
Si vous pouviez m'aiguiller
je vous remercie beaucoup par avance.
Deni29