Bonjour,
j’ai créer une macro pour qu’excel transforme ma sélection en image puis l’envoi par mail.
L’ennuis c’est que je ne parvient pas à ce que l’image soit à la ligne en dessous du texte.
J’ajoute pourtant un saut de ligne dans le code, je ne comprend pas pourquoi il n’est pas pris en compte.
J’ai également essayé de l’ajouter au niveau du champ « Body » mais ça ne marche pas non plus…
Merci à ceux qui pourront m’éclairer 
Voici le code :
Sub Envoyerparmail()
Dim image As ChartObject: Dim LaFeuille As Worksheet
Set LaFeuille = ActiveSheet
Selection.CopyPicture xlScreen, xlBitmap
Set image = LaFeuille.ChartObjects.Add(0, 0, Selection.Width, Selection.Height)
image.Activate
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")
Dim oMail As Object
Set oMail = oOutlook.CreateItem(0)
Dim Email As String
Dim Texte As String
With oMail
.Display
Dim oObjetword As Object
Set oObjetword = .GetInspector.WordEditor
Email = "machin@truc.com"
Texte = " Bonjour," & vbCrLf & vbCrLf & "Veuillez trouver ci-dessous le planning des interventions qui auront lieu dans les prochaines semaines :" & vbCrLf
.To = Email
.Subject = "Planning des interventions laboratoire"
.Body = Texte
image.Chart.Paste
oObjetword.Range(115).Paste
End With
image.Delete
End Sub