Bonsoir
Si tu ne souhaites pas aller sélectionner les pièces jointes aux mail dans une boite de dialogue seule solution lister dans une colonne leur adresse et nom (c:\chemin\ma pièce jointe.xlsx)
Puis dans ton traitement venir chercher cette donnée pour l’envoi de cette pièce
A la place de tes lignes en gras mettre ceci pour une donnée à récupérer en colonne 5 :
fichier = Cells(Compteur,5)
If fichier <> « » Then
.Attachments.Add fichier
End If
Maintenant il faut mettre dans toutes tes lignes colonne 5 ou une autre (à adapter ici Cells(Compteur,5)) le chemin et nom du fichier à joindre dans le mail
A toi de voir si cette solution est jouable pour toi