XL 2013 Suppression lignes

Bonsoir à tous

Dans ma macro Impression suivante

Sub Impression()
'
' IMPRESSION Macro
'
With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Gras""&26&K75923CSuivi des ruptures au " & Format(VBA.Now, "dddd d mmmm yyyy")
End With

Range("A:A").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
Range("A:A").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub

Je souhaiterais que ca supprime préalablement les lignes du tableau contenant dans la colonne O "Enlever ruptures"

Comment faire svp.

Merci