ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
ActiveWorkbook.HasRoutingSlip = True
.Recipients = destinataire
.Subject = "Masse salariale centre autonome " & equipe & " du mois de " & mois_en_cours & " " & annee & " Message important à lire "
.Message = ""
.Delivery = xlOneAfterAnother
.ReturnWhenDone = False
.TrackStatus = False
End With