Formule dans Excel repris par VBA envoyé sur Outlook

Bonjour,

J'essaie de développer un programme qui, dépendamment du type de charge à travailler et la langue choisie, la formule change dans Excel.

Les formules ressemblent à ceci:

[F11] ="Bonjour,"&CAR(10)&""&CAR(10)&"Voici le numéro de demande pour le contrat "&C7&" / "&C8&""&CAR(10)&""&CAR(10)&""&C15&""&CAR(10)&""&CAR(10)&"Bonne journée,"&CAR(10)&""&CAR(10)&""

Mon problème est que le code "&CAR&" n'est pas pris en compte dans VBA. Le résultat est que le courriel condensé en un paragraphe sans sauter de ligne.

Si je n'utilisais qu'une formule, je l'introduirais dans VBA, mais au clic d'un bouton radio, cette formule change et je dois faire comprendre à VBA que "&CAR(10&" = saut de ligne. ALT+ENTRÉE ne fonctionne pas dans cette situation.

Voici mon code pour envoyer le courriel (à noter que je suis relativement débutant):

Sub Mail_Outlook_With_Signature_Html_1()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next

    Sheets("TA1105").Select
    Range("C14").Select

    If [C14] Like "*@*" Then
        With Application
            .EnableEvents = False
            .ScreenUpdating = False
        End With

    strbody = Sheets("TA1105").Range("F11").Value

    On Error Resume Next

    With OutMail

        .Display
        .SentOnBehalfOfName = ""
        .To = Range("C14").Value
        .CC = ""
        .BCC = ""
        .Subject = Range("F24").Value
        .HTMLBody = strbody & "<br>" & .HTMLBody
        .Send
    End With

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    Else
    MsgBox "Aucune adresse valide sélectionnée"
    End If
        With Application
            .EnableEvents = True
            .ScreenUpdating = True
        End With
End Sub

Merci!

Bonsoir,

essaie avecchr(10) ouvbnewline ou encorevbcrlf ou vblf, ces 4 options donnent le même résultat.