Sub Courriel()
Dim C$, Adres$, Msg$, Sujet$, URLto$, url$, VbCr
VbCr = "%0D%0A"
C = "xxxx@outlook.com"
url = "http://www.excel-downloads.com/"
Sujet = "Classement"
Strbody = "Bonjour à tous," & VbCr & VbCr & "Voici le classement." & VbCr & VbCr & "Très bonne semaine." & VbCr & VbCr & url & VbCr & VbCr & VbCr & "Michel"
URLto = "mailto:" & "?subject=" & Sujet & "&bcc=" & C & "&body=" & Strbody
ActiveWorkbook.FollowHyperlink Address:=URLto
DoEvents
End Sub