Attribute VB_Name = 'MasquerCellulesPourImprimer'
'masquer des cellules à l'impression
Sub masqImp()
'ChrisV, mpfe
Dim masQ As Range
Set masQ = Range('B22, B24') 'à adapter...
formI = masQ.NumberFormat
masQ.NumberFormat = ';;;'
ActiveSheet.PrintOut
masQ.NumberFormat = formI
End Sub