Bonjour,
En premier il faut savoir dans quel répertoire le dossier archive doit être créé. Peut-être ceci --> Thisworkbook.path & "archives" ?
Une remarque concernant votre feuille"attestation". Evitez les cellules fusionnées car VBA n'aime pas trop ....Dans votre cas je ne vois aucune raison de laisser cette fusion. Vous pouvez tout faire en deux colonnes ! colonne A et colonne B
Crdlt