Envoi mail VBA selon conditions

Bonjour,

Je sollicite votre aide pour une macro qui me permettrait d'envoyer un mail aux destinataires qui ont par exemple une note supérieur à 5, les autres ne sont pas concernés.

Sub Mail()
ActiveSheet.Range("A1:B11").Select 
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour , Merci de trouver ci-dessous ..."
    .Item.To = list
    .Item.Subject = "SUBJECT"
    .Item.Send
End With
End Sub

list est la variable qui contient la liste des mail des personnes concernés ayant la note supérieur à 5

Le fichier en PJ

Je compte beaucoup sur votre aide

Hello,

Une proposition, j'ai changé les valeurs d'envoi, si à envoyer on affiche le mail, si non alors rien, ce qui permet d'avoir dans la variable list que les adresses (il est possible aussi de cacher la colonne, ça n'empêchera pas les calculs lors de l'envoi).

Après je n'ai pas outlook pour tester l'envoi, mais j'ai un doute que list reprenne correctement les adresses pour faire l'envoi. Au pire, j'ai fait un petit code, pour bien définir les adresses de List, normalement entre chaque adresses il me semble qu'il faut le caractère ; et l'envoi devrait se faire.

[size=85]Sub boucle_mail()

Ligne_mail = Range("D2").Row
taille_list = Range("C60000").End(xlUp).Row - 1
List = ""

For i = 1 To taille_list

If Range("D" & Ligne_mail).Value <> "" Then
    List = List & Range("D" & Ligne_mail).Value & ";"
End If
Ligne_mail = Ligne_mail + 1

Next

End Sub[/size]

merci beaucoup,

ca marche bien