XL 2019 Envoi mail : Condition dans un HTMLBODY

Public Nom As String
Public Prénom As String
Public NumLC As Integer
Public Ad As Integer
Public Mail As String
Public Mail_encadrant As String
Public Repertoire_Conv As String
Public Nom_convention As String



 Sub Envoi_PJ_Manquantes()

' Envoi de mail à l'agent , en cas de PJ manquantes ou en manque de détail
'
'GARDE / ASSU / INTER / PJ_Med / Piece_TW = "ATT"
'N° de poste dans onglet n° 4 : PC pas rempli

'Critère : Au moins 1 colonne = " ATT" et le statut_PJ diffèrent de " Mail PJ envoyé "
'Contrôles des heures : Mail à envoyer si msg d'erreur : C7 : C8 / C9 / C10 = PB
'
' Une fois la convention envoyée, l'etat devient : "Mail PJ manquantes envoyé"
'Tableau : T_TraitDi
'
 Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False

 Dim ObjOutlook As Outlook.Application
 Dim CompteOutlook As Account
 Dim oMailItem As Outlook.MailItem
 'Dim myAttachlents As Outlook.Attachments
        
        
'
 
'
Dim r As Integer
Dim Ligne1 As String
Const Cr = "<br>", Dr = Cr & Cr

PJ_nbre = Range("T_PJ_Erreur").Rows.Count

C_nbre = Range("T_TraitDi").Rows.Count
    
       'For r = 1 To C_nbre
       For r = 307 To 309
       'Initialisation de la 3eme colonne et des lignes
        For e = 1 To PJ_nbre
        Range("T_PJ_erreur[Manquant]").Rows(e).Value = ""
        Next
        Ligne1 = ""
        Ligne2 = ""
        Ligne3 = ""
        Ligne4 = ""
        Ligne5 = ""
        Ligne6 = ""
        Ligne7 = ""
        Ligne8 = ""
        Ligne8 = ""
        Ligne10 = ""
        Ad = 0
        'MsgBox ("final : " & Worksheets("5- Edition convention").Range("T_Convention[Final]").Rows(R))
        'MsgBox ("top confirm : " & Worksheets("5- Edition convention").Range("T_Convention[confirm]").Rows(R))
        'MsgBox ("nom : " & Worksheets("2- Traitement des DI").Range("T_Traitdi[Nom]").Rows(r))
        'Critères :
        '--------
       If Worksheets("2- Traitement des DI").Range("T_TraitDi[statut_PJ]").Rows(r) <> "Mail PJ manquante envoyé" Then
      '  Colonne 1
        If Worksheets("2- Traitement des DI").Range("T_TraitDi[GARDE]").Rows(r) = "ATT" Then
         Range("T_PJ_erreur[Manquant]").Rows(1).Value = "X"
           ' MsgBox ("1er colonne :" & Worksheets("PARAM").Range("T_PJ_Erreur[Manquant]").Rows(1))
           ' MsgBox ("1er colonne :" & Worksheets("PARAM").Range("T_PJ_Erreur[Libelle_mail]").Rows(1))
           ' MsgBox ("1er colonne :" & Worksheets("PARAM").Range("T_PJ_Erreur[PJ_PB]").Rows(1))
         Ligne1 = Worksheets("PARAM").Range("T_PJ_Erreur[PJ_PB]").Rows(1) & " : " & Worksheets("PARAM").Range("T_PJ_Erreur[Libelle_mail]").Rows(1)
        End If
        '  Colonne 2
         If Worksheets("2- Traitement des DI").Range("T_TraitDi[INTER]").Rows(r) = "ATT" Then
         Range("T_PJ_Erreur[Manquant]").Rows(3) = "X"
         Ligne3 = Range("T_PJ_Erreur[PJ_PB]").Rows(3) & " : " & Range("T_PJ_Erreur[Libelle_mail]").Rows(3)
        ' MsgBox ("Ligne3 :" & Ligne3)
        End If
         '  Colonne 3
        If Worksheets("2- Traitement des DI").Range("T_TraitDi[ASSU]").Rows(r) = "ATT" Then
         Range("T_PJ_Erreur[Manquant]").Rows(2) = "X"
         Ligne2 = Range("T_PJ_Erreur[PJ_PB]").Rows(2) & " : " & Range("T_PJ_Erreur[Libelle_mail]").Rows(2)
    '    MsgBox ("Ligne2 :" & Ligne2)
        End If
          ' Mails
          Mail = Worksheets("2- Traitement des DI").Range("T_TraitDi[Email]").Rows(r)
         ' Mail_encadrant = Worksheets("T_TraitDi").Range("T_TraitDi[Mail_encadrant]").Rows(r)
          Nom = Worksheets("2- Traitement des DI").Range("T_TraitDi[Nom]").Rows(r)
         Prénom = Worksheets("2- Traitement des DI").Range("T_TraitDi[Prénom]").Rows(r)
        
        '  Si une des adresses @mail n'est pas correcte
       '  ----------------------------------------------
         If (InStr(1, Mail, "@") = 0 And Mail <> "") Then
                ' Ad = 1
        Call Controle_confirm
        '
        GoTo Itera
         End If
         '
          ' N° de ligne
           NumLi = Worksheets("2- Traitement des DI").Range("T_TraitDi[NumL]").Rows(r)
           '
           Nom = Worksheets("2- Traitement des DI").Range("T_TraitDi[Nom]").Rows(r)
           Prénom = Worksheets("2- Traitement des DI").Range("T_TraitDi[Prénom]").Rows(r)
          
          commentaire = Worksheets("2- Traitement des DI").Range("T_TraitDi[Commentaires_PJ]").Rows(r)
         'Expediteur
          Expediteur = Worksheets("PARAM").Range("Adresse_Envoi").Value
          'Expediteur =
          ' signature
          Signature = "XXXXXX " & Cr & "SERVICE DES PERSONNELS BIATS" & Cr & "Ligne directe : 9999999 "
        
          ' presentation mail
          Demande_confirm = "  " & _
                        "  Veuillez trouver ci-joint, pour information, la liste des pièces manquantes. " & _
                        "                                                         "
         '
       '
        Set ObjOutlook = New Outlook.Application
        With ObjOutlook.CreateItem(olMailItem)
            '
            .To = Mail
            .Subject = "pièces manquantes pour le dossier de télétravail   "
            .CC = Mail_encadrant
           ' .SentOnBehalfOfName = "XXXXXX"
            .SentOnBehalfOfName = Expediteur
          '
          '   ' If Ligne1 <> "", then Ligne1 Endif & Dr & _
            .BodyFormat = olFormatRichText
            .HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & _
                        "Bonjour " & Prénom & " " & Nom & Dr & _
                        Demande_confirm & Dr & _
                        Ligne1 & Dr & _
                        Ligne2 & Dr & _
                        Ligne3 & Dr & _
                        "Vous en souhaitant bonne réception.  " & Dr & _
                        "Cordialement." & Cr & Signature
                      
                        
          '  .Display True
            .Display
           '.Send
           ' Apres envoi du mail, chgt de l'etat pour que la convention ne soit envoyee qu'une seule fois
            NumeroL = Application.Match(NumLi, Range("T_TraitDi[NumL]"), 0)
            'NumeroL2 = Application.Match(NumLi, Range("T_commission[NumL]"), 0) ' n° de ligne dans le tabaleau Convention correspondant au numl de convention
            col_etat = Worksheets("2- Traitement des DI").ListObjects("T_TraitDi").ListColumns("statut_PJ").Index
            Worksheets("2- Traitement des DI").ListObjects("T_TraitDi").DataBodyRange(NumeroL, col_etat).Value = "Mail PJ manquantes envoyé"
            
            
            
        End With
        Set ObjOutlook = Nothing
        End If
Itera:
    Next
    
'
Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic

End Sub