Bonjour à tous,
J'ai trouvé sur le site cette façon de faire pour envoyer un courriel (windows live mail).
Sub Courriel()
Dim C
Dim Adres$, Msg$, Sujet$, URLto$
Sheets("Infos (2)").Select
C = Range("l1").Value
Sujet = "Classement"
Msg = "Bonjour à tous, %0D%0A %0D%0A" & "Voici le...