Sub Macro1()
Dim lignes As Range
Set lignes = Union(Columns("A:A").SpecialCells(xlCellTypeConstants, 23), Columns("A:A").SpecialCells(xlCellTypeFormulas, 23)).EntireRow
lignes.Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
ActiveSheet.PrintPreview
'Remplacer par la ligne ci-dessus par:
'ActiveSheet.PrintOut ' pour imprimer
End Sub