VBA pour copie d'une facture dans sous dossier

Bonjour à tous. N'étant pas du tout doué en VBA, je sollicite votre aide.

Dans mon fichier, je souhaiterai que lorsque je clic sur le bouton ARCHIVER, les factures générées soient archiver dans le sous-dossier "archives" et non en rajout de feuilles du dossier "FACTURE".

Par avance, merci

Bonjour