Bonjour,
1) ce ne sont pas les adresses mail qui sont récupérées, mais les noms
Destinataires = Destinataires & Sheets("Feuil1").Range("A" & i) & ";"
2) si la pièce jointe n'existe pas, alors rien ne se passe
If nomfic <> "" And Destinataires <> "" Then
A+