Salut,
Voici une possibilite d'y arriver.
Ciao
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 05/08/2003 par André Casanova
'
'
'definit la zone d'impression
Range("A1:F32").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$32"
'masque les lignes 10 a 14
Rows("10:14").Select
Selection.EntireRow.Hidden = True
'imprime la selection
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
're-affiche les lignes 10 a 14
Selection.EntireRow.Hidden = False
End Sub