Sub Imprimer()
With Sheets("Rapport ") 'espace superflu dans le nom !!!
.Cells.Replace " ", "", xlWhole 'supprime les espaces superflus !!!
.PageSetup.PrintArea = .Range("A1", [A4].CurrentRegion).Address
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.Rows("2:3").Hidden = True
.PrintPreview 'pour tester
'.PrintOut 'pour imprimer
.Rows("2:3").Hidden = False
End With
End Sub