Mail auto sur excel via Outlook avec mise en forme

Sub mailoutlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    
For valeur_lign = 1 To 400
    If Cells(valeur_lign, 23) = "Alerte, mail à faire" Then
        Cells(valeur_lign, 25) = Date
        On Error Resume Next
        Set xOutApp = CreateObject("Outlook.Application")
        Set xOutMail = xOutApp.CreateItem(0)
        xOutMsg = xOutMsg & "<span style=""color:#80BFFF"">Bonjour,</span style=""color:#80BFFF"">"
        xOutMsg = xOutMsg & "<br/>"
        xOutMsg = xOutMsg & "<br/><span style=""color:#80BFFF"">Nous constatons qu'à ce jour, sauf erreur,  nous n'avons pas reçu le retour du ticket du client,</span style=""color:#80BFFF"">"
        With xOutMail
            .To = "Email Address"
            .CC = ""
            .BCC = ""
            .Subject = "Dossier X"
            .HTMLBody = xOutMsg
            .Attachments.Add ("C:\Cahier\CAZ\informations 20180913.docx")
            .Display
        End With
        Set OutMail = Nothing
        Set OutApp = Nothing
        On Error GoTo 0
    'Set OutMail = Nothing
    'Set OutApp = Nothing
    End If
Next
End Sub