Sub envoimail()
Workbooks("Mail.xls").HasRoutingSlip = True
With Workbooks("Mail.xls").RoutingSlip
.Delivery = xlAllAtOnce
.Recipients = Array("[EMAIL="adresse1@free.fr"]adresse1@free.fr[/EMAIL]", _
"[EMAIL="adresse2@free.fr"]adresse2@free.fr[/EMAIL]", "[EMAIL="adresse3@free.fr"]adresse3@free.fr[/EMAIL]")
.Subject = "Le fichier"
.message = "comment allez vous ?? "
End With
ActiveWorkbook.Route
End Sub