Sub envoiMail()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim Wb As Workbook
Set Wb = Workbooks.Add(1) 'creation nouveau classeur temporairie
ThisWorkbook.Sheets(1).Range('K2:N13').Copy
Wb.Sheets(1).Cells(1, 1).PasteSpecial 'copie plage de cellules dans ce nouveau classeur
Wb.SaveAs 'C:/graphTemp.xls' 'sauvegarde nouveau classeur temporaire
Wb.Close
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Feuil1.Range('A1').Value 'destinataire
.Subject = Feuil1.Range('J10')
.Body = 'Bonjour je suis le corps du texte'
.Attachments.Add 'C:/graphTemp.xls' 'Si tu as une Piece jointe'
.Display
'.Send
'On peut switcher entre .send et .display selon que l'on veut
'envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
Kill 'C:/graphTemp.xls' 'suppression classeur temporaire
End Sub