Sub Apercu()
With Sheets("Feuil1") [COLOR=Green]' Sur la Feuil1[/COLOR]
.PageSetup.PrintArea = "$A$1:$H$36"[COLOR=Green] ' Délimitation de la partie A1:H36 plage à modifier évenuellement[/COLOR]
.PrintPreview '[COLOR=Green] Aperçu avant Impression [/COLOR]
End With
End Sub