Bonjour Olivier TP,
A tester :
Dim AdresseEmail As Range
Dim Cellule As Range
' Définir la plage d'adresses email
Set AdresseEmail = Worksheets("VotreFeuille").Range("B6:B" & Worksheets("VotreFeuille").Range("A26").Value)
' Boucler sur chaque cellule de la plage AdresseEmail
For Each Cellule In AdresseEmail
If Cellule.Value Like "?*@*.*" Then ' Vérifie si la cellule contient une adresse email valide
' Votre code pour envoyer l'email
' Utilisez Cellule.Value pour obtenir l'adresse e-mail de la cellule actuelle
End If
Next Cellule
Remplacez "VotreFeuille" par le nom de la feuille de calcul contenant vos adresses électroniques. Le code de la procédure d'envoi d'e-mails doit être placé à l'intérieur de la boucle For Each
, en utilisant Cellule.Value
pour faire référence à l'adresse e-mail actuelle.
Le code If Cellule.Value Like "?*@*.*"
vérifie si la cellule contient une adresse email valide avant d'essayer d'envoyer l'email.