Conditions pour le corps d'un mail

Question

J'ai cherché en vain une explication à mon problème, seule la dernière phrase de mon mail apparaît (Merci. Cordialement, et la signature) , voici le code : Dim OutObj As Object Dim Email As Object Set OutObj = CreateObject("Outlook.Application") Set Email = OutObj.CreateItem(0) MyBench0 = "C:\" & Sheets("feuille1").Range("A1").Value & ".pdf" MyBench = Sheets("feuille1").Range("A2").Value MyBench2 = Sheets("feuille1").Range("A3").Value Email.To = "blabla@blabla.fr" Email.Subject = "Demande" Email.Attachments.Add "C:\signature_outlook.jpg", olByValue, 0 Email.HTMLBody = "&lt;html&gt;&lt;p&gt;" & "Bonjour,&lt;br&gt;&lt;br&gt;Nouvelle demande :&lt;br&gt;&lt;br&gt;" & "&lt;a href= '" & MyBench0 & "'&gt;" & MyBench0 & "&lt;/a&gt;&lt;br&gt;&lt;br&gt;" If MyBench &lt;&gt; "" Then Email.HTMLBody = "&lt;html&gt;&lt;p&gt;" & "&lt;a href= '" & MyBench & "'&gt;" & MyBench & "&lt;/a&gt;&lt;br&gt;&lt;br&gt;" End If If mybench2 &lt;&gt; "" Then Email.HTMLBody = "&lt;html&gt;&lt;p&gt;" & "&lt;a href= '" & MyBench & "'&gt;" & MyBench & "&lt;/a&gt;&lt;br&gt;&lt;br&gt;" End If Email.HTMLBody = "&lt;html&gt;&lt;p&gt;" & "Merci.&lt;br&gt;&lt;br&gt;Cordialement,&lt;br&gt;" & "&lt;html&gt;&lt;p&gt;" & "&lt;br&gt;&lt;img src='cid:signature_outlook.jpg'&gt;&lt;br&gt;" Email.Send Set OutObj = Nothing: Set Email = Nothing End Sub Je suis certain d'avoir fait des erreurs, je ne maîtrise pas bien tout ça. Par avance merci à qui pourra me dire où est-ce que je me trompe...

Steelson · Accepted Answer

Mets Email.HTMLBody = Email.HTMLBody & "patati patata ..." sauf le premier...