Je veux bien aider, mais j'ai l'impression qu'il n'y a pas toutes les données.
Un mail s'envoie comme ceci ;
Set messagerie = CreateObject("Outlook.Application")
Set email = messagerie.CreateItem(0)
With email
.to = destinataires
.Subject = "le titre du mail"
.body = "le contenu du mail"
.Attachments.Add nompdf & ".pdf"
.display
End With
Tu peux donc mettre dans le champ destinataire autant de personnes que tu le souhaites, séparées par ";"
en partant d'une condition IF ... THEN
IF XXX = "Departement 1" THEN destinataires=" Monsieur X;monsieur A;Monsieur B"
IF XXX = "departement 2" THEN destinataires = "Monsieur Y;monsieur A;monsieur B"
Reste à savoir ce qu'est XXX dans ton formulaire ... mais comme il n'y a pas de fichier joint, je ne peux pas aller plus loin !