Sub Imprimer_en_NB()
Sheets("Feuil2").Activate: Cells.Clear '< select feuil.impression/nettoye
Sheets("Feuil1").Range("B5:J39").Copy Destination:=ActiveSheet.Range("A1") '< copy
'ActiveSheet.PageSetup.BlackAndWhite = True '< True en noir/blc False=color
ActiveSheet.Cells.Interior.ColorIndex = xlNone '< suppr.color fond
ActiveSheet.Cells.FormatConditions.Delete '< suppr.format !?
ActiveSheet.PageSetup.Orientation = xlLandscape 'xlPortrait/xlLandscape
ActiveSheet.PrintOut Copies:=1, Collate:=True '< à voir !?
'ActiveSheet.PrintPreview ' < à voir !?
Cells.Clear
Sheets("Feuil1").Activate
End Sub