Je crois que cette version devrait mieux répondre à ta demande.
Sub Macro2()
'Select the range of cells on the active worksheet.
ActiveSheet.Range('A1:I13').Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
' .Introduction = 'Voila ce que donne le premier mail en excel'
.Item.To = mailing
.Item.Subject = 'test excel'
.Item.Attachments.Add ('C
ocuments and SettingsOlivierBureaubackup.xls')
.Item.Send
For cp = 1 To .Item.Attachments.Count
.Item.Attachments(1).Delete
Next
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub