Sub Destinataires()

'Choix des destinataires
Select Case Feuil1.Cells(i, Application.WorksheetFunction.Match("n° Dossier", [Base_Publi_EnTête], 0))
Case 811011 'IMMOBILYANS
copie_destinataire_mail = "chauvel@6mil.fr"
Case 1410237 'SAURET
copie_destinataire_mail = "vsauret@agenceverte.com;daniele@de-fac-to.fr"
Case 1512273 'EN COMPAGNIE DES ECUREUILS
copie_destinataire_mail = "vsauret@agenceverte.com;daniele@de-fac-to.fr"
Case 1513274 'C'EST DÉJÀ DEMAIN
copie_destinataire_mail = "vsauret@agenceverte.com;daniele@de-fac-to.fr"
Case 1134124 'SCAG
copie_destinataire_mail = "mdancona@bluewin.ch"
Case 1422249 'Make the Link
copie_destinataire_mail = "gk@mtl.fm"
Case 1503264 'More With Less
copie_destinataire_mail = "daniele@de-fac-to.fr"
Case 1524285 'My Sweedish Shop
copie_destinataire_mail = "laure@myswedishshop.com"
Case 1549310 'SCI MAISON
copie_destinataire_mail = "emilieruffin@hotmail.com"
Case 1544305 'SYSTEM DYNAMICS
copie_destinataire_mail = "pierre@tuxunix.fr"
Case 1532293 'UB DEVELOPPEMENT
copie_destinataire_mail = "daniele@de-fac-to.fr"
Case 1545306 'Les Ateliers 299
copie_destinataire_mail = "dn@lesateliers299.com"
Case 1550311 'IBCONSULTING
copie_destinataire_mail = "idriss.benjelloun@gmail.com;ibconsulting.fr@gmail.com"
Case 1605316 'MILLIMETRE
copie_destinataire_mail = "sarl.millimetre@yahoo.fr"
Case 1607318 'URBAN BAGEL
copie_destinataire_mail = "daniele@de-fac-to.fr"
Case 1616327 'GTM
copie_destinataire_mail = "jl.pietri@gmail.com"
Case 1618329 'TECHNOPRESTA
copie_destinataire_mail = "js@pearlmine.com"
Case 1619330 '455INVEST
copie_destinataire_mail = "aurelietavier@hotmail.fr"