Sub Envoi_Mail()
Dim i, num As Integer, Fichier As String, Texte as String, r
Dim DestA, DestB
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
num = 1
With Sheets("Feuil1")
destA = .Range("a2") & "<" & .Range("b2") & ">;" ' 1ère adresse d'envoi
For i = 3 To 10 '(10) Lignes - 1 à modifier selon le nombre de destinataires, si 32 destB mettre 31
num = num + 1
'Nom Complet DestB 'Adresse mail DestB
r = r & " " & .Range("a" & num) & "<" & .Range("b" & num) & ">;"
Next
destB = r
End With
Fichier = "C:\Chemin\NomFichier.ext" ' À modifier
If Nom_Fichier = "" Then Exit Sub
Texte = "Bonjour à tous," & vbCrLf & vbCrLf _
& "Veuillez trouvez ci-joint le fichier mis à jour" & vbCrLf & vbCrLf _
& "Cordialement "
With OutMail
.To = destA
.CC = Trim(destB)
.Subject = ""
.HTMLBody = Texte
.Attachments.Add Fichier
.Display '.Send pour envoyer
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub