Send mail VBA

Je souhaiterais ecrire une macro me permettant d'envoyer par mail une feuille de mon classeur à une liste de destinataires principaux ainsi qu'à une liste de destinataires en copie avec un objet et un texte . La macro serait affectée à une image clipart ou a un bouton. Merci d'avance pour votre aide .

Sub Feuil1_Bouton1_Cliquer()

With Sheets("feuil1").Activate

Dim cellule As Range

For Each cellule In Range("A3:K60000")

If cellule <> "" Then cellule.Borders.Weight = xlThin

Next

'on crée le fichier PDFdans le même dossier que le fichier source

Sheets("Feuil4").ExportAsFixedFormat Type:=xlTypexslm, Filename:= _

ActiveWorkbook.Path & "\" & "NOM DE TON FICHIER.PDF"

'Envoi d'un message par pièce jointe

Set outapp = CreateObject("Outlook.Application")

Dim dest

Dim outmail As Object, Desti As String

Dim PJ As String, fich As String

' Chemin où se trouvent les fichiers - à modifier

Const Chemin = "C:\Users\ETC ...."

' Ici, code le destinataire

dest = "ADRESSEMAIL"

fich = Dir(Chemin & "*.pdf")

Do While fich <> ""

Set outmail = outapp.CreateItem(0)

With outmail

.attachments.Add Chemin & fich

.To = dest

.Subject = "TITRE DU MAIL"

.Body = "CORPS DU MAIL"

.Recipients.Add Desti = "ADRESSE MAIL EN COPY"

.Display

End With

fich = Dir

Loop

'la feuille PDF créée est supprimée après l'envoi

Kill ActiveWorkbook.Path & "\" & "NOM DU FICHIER.PDF" 'à modifier

End With

End Sub

A adapter à ton classeur

CDLT

Merci pour ta réponse ! Pourrais-je t'envoyer mon fichier pour que tu me dise se que tu en pense ? J'ai un message d'erreur qui s'affiche "erreur de compilation"

Oui tu peux (:

Le fichier fait 389 Ko , donc trop gros ... As tu une adresse ou je peux te l'envoyer ?

Je te l'ai envoyé en MP

ok c'est good , je t'ai envoyé le fichier en question , j'espére que tu arriveras a t'en sortir...