Prgm VBA pour envoie d'emailing

Sub Macro1()
' envoiautomatique
Sheets('FEUIL1').Select


Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Set ObjOutl = CreateObject('Outlook.Application') 'Création de l'objet Outlook
Set objSession = ObjOutl.GetNamespace('MAPI') 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
objSession.Logon 'Connection à Outlook

'envoi
With ObjMessage
.To = 'TARTANPION@ZZZZZZZ.FR'
.Subject = 'ESSAI '
.Body = 'Veuillez trouver ci-joint le fichier de '
.Attachments.Add 'C:\\ESSAI.xls'
.Send
End With

Set ObjMessage = Nothing
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message


'Suppression des objets (Vidage)
Set ObjMessage = Nothing
objSession.Logoff
Set objSession = Nothing
Set ObjOutl = Nothing



End Sub



CI DESSUS LE CODE POUR ENVOYER DES EMAILS DEPUIS EXCEL

a+
dENIS

Merci Droussel,
jvé essayer d'adapter le code et je te redirais.
Tu ne sais pas comment faire pour pouvoir créer une liste de sélection. Je m'explique: j'ai une liste de clients (nom, contact, adresse, num...) et je voudrais pouvoir sélectionner que certains clients qui ont des caractéristiques précises choisissable en cochant des cases. Je sais pas si je me fais bien comprendre???
En te remerciant une nouvelle fois.

@+ dans le bus