Sub test2()
Dim MonOutlook As Object
Dim MonMessage As Object
Dim attach As Attachments
Dim MonFichierjoint As Attachment
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
MonMessage.To = Range("Feuil2!A16").Value
MonMessage.BCC = Range("Feuil2!A17").Value
MonMessage.Subject = " Demande quelconque "
MonMessage.Body = " Corps de ton message "
MonMessage.Send
End Sub