Bonjour,
A tester pour masquer cellules a1 et a2 dans ce cas :
Sub impression_masquage()
Set masque = Union(Range("feuil1!a1"), Range("feuil1!a2"))
Application.EnableEvents = False
masque.Font.ColorIndex = 2
Sheets("feuil1").PrintOut , , , True
Application.EnableEvents = True
masque.Font.ColorIndex = 0
End Sub
A modifier feuil1!a1, feuil1!a2 et feuil1 :
Set masque = Union(Range("feuil1!a1"), Range("feuil1!a2"))
et
Sheets("feuil1").PrintOut , , , True