Merci pour la réponse éclaire!! ça marche a merveille
une autre petite question mnt :
si je veux souligner la partie "Sheets("Traduction").Range("A10")"
j'ai essayé avec les balise <b>Sheets("Traduction").Range("A10")</b> mais ça marche pas
Set olApp = CreateObject("Outlook.application")
Set Mail = olApp.CreateItem(olMailItem)
With Mail
.display
.To = Sheets("Adresse").Range("B3") & ";" & Sheets("Adresse").Range("B4") & ";" & Sheets("Adresse").Range("B5") & ";" &
.Subject = "TPS - Rapport dépassement temps"
.Attachments.Add Chemin
.htmlBody = Sheets("Traduction").Range("A151") & "</p><p>" & _
Sheets("Traduction").Range("A152") & " " & Sheets("Rapport").Range("K3") & "</p><p>" & _
Sheets("Traduction").Range("A10") & " : " & Equipe & " (" & Sheets("Rapport").Range("S3") & ")" & "</p><p>" & _
Sheets("Traduction").Range("A153") & "</p><p>" & _
Sheets("Rapport").Range("A25") & "</p><p>" & _
Sheets("Rapport").Range("K25") & "</p><p>" & _
Sheets("Traduction").Range("A154") & "</p><p>" & _
.htmlBody
.display
'.send
End With
Ça marche avec les balises <P> pour le retour à la ligne ( j’ai oublié de préciser)