Copier Cellule dans e-mail HTML

Bonjour,

Je souhaite adapter un code que j'ai trouvé sur ce forum. Je voudrais inserer une partie de mon tableur dans le corps du message : cellule A1:F40
Avez vous une idée ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
  Dim OutApp As Object
  Dim OutMail As Object
  Dim strbody As String
  Dim olFormatHTML As String
 
 
  Set OutApp = CreateObject("Outlook.Application")
  OutApp.Session.Logon
  Set OutMail = OutApp.CreateItem(0)
   strbody = "Information sur la mise à jour"
  On Error Resume Next
      With OutMail
          .To = "Prénom1nom1@toto.fr;marcel.durant@titi.fr"
          .CC = "Francois.pignon@free.fr;robin.des.bois@sherwood.gb"
          .Subject = "vivement les vacances"
          .BodyFormat = olFormatHTML
        .HTMLBody = "Bonjour, <BR><BR>Ce message … "          
.Display
      End With
          On Error GoTo 0
       Set OutMail = Nothing
      Set OutApp = Nothing