Ajout texte conditionnel - Mail

Option Explicit

Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim strMsg As String
'______________
Sub envoi_mail()

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

strMsg = "Bonjour" & vbNewLine _
                & "A la suite de la vérification des conditions de participation, les personnes suivantes peuvent participer :" & newline _
'------------------Ajout des personnes ok pour participation----------------
    With Worksheets("feuil1")       'nom de feuille a adapter
        Set Plage = .Range("A1:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
    End With
    NBL = Plage.Rows.Count
    NP = 0
    For n = 1 To NBL
        If UCase(Plage(n, 4)) = "OUI" Then
            strMsg = strMsg & vbNewLine & vbTab & "- " & Plage(n, 1)
        End If
    Next n
'--------------------------------------------------
With oBjMail
    .To = ""
    .Subject = ""
    .HTMLBody = strMsg
    .Attachments.Add "C:\Chemindufichierconcerné..."
    .Display  'ouvre Outlook et confirmer envoi ou pas
    '.Send      'envoi direct
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing

End Sub

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("D" & i) = "Oui" Then
        strMsg = strMsg & "- " & Range("A" & i).Value & "<br>"
    End If
Next