Bonjour,
Je te remercie pour ton aide
Malheureusement, un message d'erreur apparait toujours au même endroit
Sub envoi_mail_avec_objet()
Dim courriel As String, feuille As Integer, ligne As Long
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application") <= CETTE LIGNE PRESENTE UN MESSAGE D ERREUR : "un composant active x ne peut pas créer l'objet 429 "
Set OutMail = OutApp.CreateItem(0)
For feuille = 1 To Sheets.Count
With Sheets(feuille)
For ligne = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(ligne, 3) <> "" Then
courriel = .Cells(ligne, 3)
'Monmessage
With OutMail
.To = courriel
.CC = ""
.BCC = "XYZ@gmail.com"
.Subject = "Bilan année 2017" 'Objet du mail
'.Body = "Hello!"
' .Attachments.Add (chemin & "\" & fichier)
.Display
' .Send
End With
End If
Si tu peux m'aider encore un peu stp !
MERCI BEAUCOUP!