Bonjour,
Quand tu parles de dossier, tu veux imprimer tous le classeur de ton fichier excel
Sub imprime()
Sheets(Array("Feuill1","...")).PrintOut Copies:=1
End Sub
Tu mets bien le nom de toutes les pages à la place de "Feuill1","..."
Fait un bouton sur la première feuille de ton classeur et tu associes cette macro à ce bouton