Envoie email multiples avec condition

bonjour

voir fichier ci joint

est il possible d'obtenir l'ouverture de la page outlook avec comme destinataire; les adresses de la colonne E si dans la colonne F la cellule comporte l'indication "sélectionné"

merci de votre aide

Bonjour,

une proposition

Sub creelistdest()

    Dim olApp As Outlook.Application
    Dim olMail As MailItem
    Dim CurrFile As String
    dest = ""
    dl = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To dl
        If Cells(i, "f") = "sélectionné" Then
            dest = dest & Cells(i, "e") & ";"
        End If
    Next i
    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)
    With olMail
        .To = dest
        .Display
    End With

    Set olMail = Nothing
    Set olApp = Nothing

End Sub

merci H2SO4 de m'avoir consacré du temps

cela fonctionne à merveille après avoir activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,

Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library

encore merci de ce soutien