Macro excel 2014 insertion signature OUTLOOK

Sub PDF()

   Dim ObjOutlook As New Outlook.Application
   Dim oBjMail
   Dim pj As String
   Dim Corps As String
   Dim corp2 As String
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "S:\DEVIS\EN PDF\" & [E10] & " " & [F10] & " " & [N20] & " " & [N21] & " " & [N22] & " " & [N23] & " " & [E13] & " " & [E17] & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False _

    pj = "S:\DEVIS\EN PDF\" & [E10] & " " & [F10] & " " & [N20] & " " & [N21] & " " & [N22] & " " & [N23] & " " & [E13] & " " & [E17] & ".pdf"
   
   Set ObjOutlook = New Outlook.Application
   Set oBjMail = ObjOutlook.CreateItem(olMailItem)
     
    If pj = "Faux" Then Exit Sub
    If VarType(pj) = vbBoolean Then Exit Sub
    
    'Change only Mysig.htm to the name of your signature
    'Changez seulement Mysig.htm par le nom de votre signature
    SigString = Environ("appdata") & _
                "\Microsoft\Signatures\Mysig.htm"

    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If
    
    On Error Resume Next
    corp2 = "Bonjour, " & "<br><br>" _
          & "vous trouverez ci-joint l'offre de prix" & "<br>" _
          & "je reste à votre disposition pour tout renseignement complémentaire. " & "<br>" _
                
    Corps = "<DIV align=left><FONT Size = 4> " & corp2 & " </FONT></DIV>"
    
    With oBjMail
        .To = Cells(21, 5).Value
        .CC = "defontaine3@wanadoo.fr"
        .Subject = "offre de prix FONTES DE PARIS DEFONTAINE "
        .Attachments.Add pj
        '.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
        'signature a la fin
        .HTMLBody = Corps & oBjMail.HTMLBody & Signature
        .Display
   End With
    
    Kill "S:\DEVIS DEFONTAINE\EN PDF\" & [E10] & " " & [F10] & " " & [N20] & " " & [N21] & " " & [N22] & " " & [N23] & " " & [E13] & " " & [E17] & ".pdf"
       
End Sub

Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function