Private Sub CommandButton1_Click() 'Imprimer
'---masquage des lignes inutiles---
Range([E65536].End(xlUp)(2), [Dercel].Rows(-2)).EntireRow.Hidden = True
'---masquage de colonnes (compléter éventuellement)---
Columns("F").Hidden = True
'---zone d'impression(à adapter)---
Me.PageSetup.PrintArea = Range([A13], [Dercel]).Address
'---boîte Imprimer---
Application.Dialogs(xlDialogPrint).Show
'---affichage des zones masquées---
Rows.Hidden = False
Columns.Hidden = False
Me.PageSetup.PrintArea = ""
End Sub