Sub Envoimail()
' envoi d'une plage de cellules via Outlook
' Outlook doit être démarré.
Dim Plage As Range
On Error Resume Next
Set Plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Aucune plage sélectionnée"
Exit Sub
End If
On Error GoTo 0
Plage.Select
' Affiche le message dans le classeur
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'"Item" représente un objet Outlook "MailItem".
.Item.To = Range("A17").Value
.Item.Cc = Range("A18").Value
.Item.Subject = Range("A19").Value
.Item.display
End With
End Sub