Sub Envoi_mail1()
Dim Ol As New Outlook.Application, Olmail As MailItem, CurrFile$, nom$, dest$, fin&, i&, a&, liste$, n&
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
Application.ScreenUpdating = False
'nom = ThisWorkbook.FullName ' si un jour Jacky tu veux envoyer le fichier avec
With Feuil1
fin = Feuil1.Range("I" & Rows.Count).End(xlUp).Row
For i = 5 To fin
If .Cells(i, 12) <> "" Then dest = dest & .Cells(i, 113) & ";"
Next i
If dest = "" Then MsgBox "Vous n'avez choisi aucune Adresse", , "Pas de destinataire": Exit Sub
dest = Mid(dest, 1, Len(dest) - 1)
End With
With Olmail
.To = dest
.CC = liste
.Subject = "Message de Jacky"
.Body = "Bonjour," & vbCrLf & " @ Bientôt " & vbCrLf & " Jacky "
'.Attachments.Add nom 'Jacky si un jour tu modifies pour envoyer un fichier tu retires le ' en début de ligne
.Display
End With
End Sub