Sub Courriel()
Dim Mon_Outlook As New Outlook.Application
Dim Mon_Message As Outlook.mailitem
Dim Liste_Dest As Worksheet
Set Liste_Dest = ThisWorkbook.Worksheets("Destinataires") ' dedans en a1 tu mets test@test.fr, a2 un autre etc
Set Mon_Message = Mon_Outlook.CreateItem(olMailItem)
With Mon_Message
.Subject = "maj fichier audit05" 'objet
'corps du message
.Body = "Bonjour titooooo" & vbCrLf & _
"Vois la mise a jour du fichier" & vbCrLf & _
"Cordialement" & vbCrLf & _
"jpb388"
.BodyFormat = olFormatHTML 'le format
Liste_Dest.Range("A1").Select 'boucle pour les destinataires
Do While ActiveCell.Value <> ""
.Recipients.Add (ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name 'piece jointe
.Send 'envoi
End With
Mon_Outlook.Quit
Set Mon_Outlook = Nothing
Set Mon_Message = Nothing
Set Liste_Dest = Nothing
End Sub