Sub MailingListe()
Dim Dest As String
Dim Sujt As String
Dim Msg As String
For Each Lescellules In Range("D3:D5")
Dest = Lescellules.Value
Sujt = "Revue de Presse"
Msg = "Bonjour, un nouvel article concernant votre activité" _
& vbNewLine & "est disponible dans la revue de presse." _
& vbNewLine & "Vous trouverez la revue de presse à cette adresse: L:\Revue presse\Presse_78.xls"
Shell "D:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Next
End Sub