Dim HyperLien, Objet, Msg As String
Objet = "DTL" Else
Msg = ""
Msg = Msg & "La demande " & ActiveWorkbook.Name & " a été traitée." & vbCrLf
Msg = Msg & "Bon développement !" & vbCrLf
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
ad = "toto@tata.com"
HyperLien = "mailto:" & ad & "?cc=" & "zae@tata.com,rt@tata.com"
HyperLien = HyperLien & "&Subject=" & Objet & " (à " & Time() & ")"
HyperLien = HyperLien & "&Body=" & Msg
ActiveWorkbook.FollowHyperlink HyperLien