Re,
déjà, il y a une erreur dans mon code...
Lire (avec un point c'est mieux) :
Sheets(Array("Feuil3", "Feuil4", "Feuil5")).Select
Attention à remplacer Feuil3 par le nom de la feuille n°3 du classeur etc...
Sinon, pour éxécuter avant un aperçu avant impression, je dois avouer que je ne sais pas... :0(
J'ai une solution mais elle concerne l'éxécution avant l'impression...
Sous VBA, insérer dans le module ThisWorkbook les lignes suivantes :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call Mettre_Entete
End Sub
Désolé et bon courage !
Clément
"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème."