Outlook - Un mail contenant une liste de celulles repondant à un critère

Bonjour,

Le besoin est simple, envoyé UN mail à une liste de contact contenant une liste de cellules répondant à un critère.

Le fichier est un tableau standard avec X lignes et en colonne U la valeur mail ou no mail

Il s'agit d'envoyer le contenu de la colonne P quand la valeur de U = mail.

Je me suis débrouillé pour sortir la macro suivante qui fonctionne mais ne répond pas entièrement à mon besoin :

Private Sub CommandButton1_Click()

Dim LeMail As Variant

Dim Ligne As Integer

Set LeMail = CreateObject("Outlook.Application")

For Ligne = 2 To 10

If Range("u" & Ligne) = "mail" Then

With LeMail.CreateItem(OlMailItem)

.Subject = "test"

.To = Range("V6")

.Body = "Update Batch" & Range("P" & Ligne)

.Display

End With

End If

Next Ligne

End Sub

Mon problème : ca créé autant de mail que de lignes = mail

Merci d'avance à tous ceux qui prendront le temps de répondre

Avec le fichier en exemple