Microsoft 365 Publipostage mail (relevés individuels)

Bonjour,
J'utilise cette macro pour créer ma liste de mails, cependant il ne permet que mettre les adresses mail des destinataires sans joindre de pièce jointe.

'Mails pour liste Contacts
Sub ContactsEAFD()
'myDearFriend! - www.mdf-xlpages.com
Dim Plage As Range, R As Range
Dim ListeMails As String

'Collecte les cellules contenant une croix en colonne (L) 'ou autre colonne contenant les croix)
Set Plage = Range("l2:l75").SpecialCells(xlCellTypeConstants, 2)
'Pour chaque cellule collectée
For Each R In Plage
'On récupère l'adresse mail dans la colonne précédente(K) ou autre colonne contenant les adresse mails dans ce cas modifier le '-1) ci dessous par le Nb de colonne décalées)
ListeMails = ListeMails & IIf(Len(ListeMails) > 0, ";", "") & R.Offset(0, -1).Text
Next R
'Envoi via OUTLOOK ---> A VERIFIER
ActiveWorkbook.FollowHyperlink "mailto:" & ListeMails
Range("K77").Select
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Range("M77").Select
End Sub

pour moi cela fonctionne bien, mais si cela ne correspond pas a votre attente; dommage.