Envoie de mail d'une colonne de tableau

Bonjour,

Je débute dans le VBA et je me sui lancer sur un projet qui me permettrai d'aller plus vite dans mon activités et limités les erreurs que je peut realiser du a ma dyslexie et la répétition des tache administrative. Après avoir réaliser le code, qui a pour but d'envoyer un mail aux offreurs de compétences pour les convoquer à une présentation.

Sub EnvoiConvocation_Clic()

If MsgBox("Etes-vous certain de vouloir envoyer le mail ?", vbYesNo, "Demande de confirmation") = vbYes Then

'Declaration des variables
Dim MaMessagerie As Variant
Dim MonMessage As Variant
Dim MaSignature As String
'On affecte les variables de type objet - initialisation des variables objets - SAT

Set MaMessagerie = CreateObject("Outlook.Application") 'création d'un object Outlook
Set MonMessage = MaMessagerie.CreateItem(olMailItem)
'on affiche le mail
MonMessage.Display
'on récupere la signature
MaSignature = MonMessage.HTMLBody

For Ligne = 8 To 19

With MonMessage 'On construit le mail
.BCC = Range("F" & Ligne) 'L'adresse du destinataire
.Subject = "Convocation Information collective du " & Range("C3") & " : " 'On affiche l'objet du mail

'On affiche le corps du texte
.HTMLBody = "<font face=""Arial""<DD><p>Madame, Monsieur,</p></DD>" _
& "<DD><p>Bien à vous,</DD></p><br>" & MaSignature
.Display
.Send
End With
Next Ligne

'Desactiver de la mémoire l'application Outlook
Set MaMessagerie = Nothing
Set MonMessage = Nothing

End If

Excel me dis qu'il y a une erreur d'exécution qui apparaît sur la ligne :

.BCC = Range("F" & Ligne) 'L'adresse du destinataire

Pouvez-vous m'aider ?

Merci :)

Bonjour Djora,

Peut-être en mettant

.BCC = Range("F" & Ligne).Value

A+

Bonjour,

Merci pour la réponse effectivement ca marche mieux :)

Bonjour Djora