Impression pages blaches à cause des sauts de pages

Bonjour le forum,

Voilà je vous explique mon souci:

Je suis en train de coder des paramètres d'impression.

J'ai instaurer des sauts de pages dans mon code pour avoir chaque tableau sur une page. Le problème est le suivant: quand je clique dans une liste déroulante de mon classeur certaines colonnes se masquent et quand je désire imprimer j'ai plusieurs pages blanches qui sortent dû à ces sauts de pages.

J'ai tout essayé je ne vois pas comment faire. J'aurais grand besoin de votre aide.
Ce que je veux c'est garder mes sauts de pages mais faire en sorte que les pages blanches qui sont les colonnes masquées ne s'impriment pas.

D'avance un grand merci :-)

voici mon code:

Sub Impression_Exposition()


With ActiveSheet.PageSetup
    .PrintArea = "$K$1:$DJ$261"
    .Zoom = 30
    .CenterHorizontally = True
    .CenterVertically = False
    .LeftFooter = Application.UserName
    .RightFooter = format(Date, "dd/mm/yyyy")
    .CenterFooter = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name) 'ActiveWorkbook.Name
    .Orientation = xlPortrait
    .PrintTitleRows = "$2:$9"
    
End With

Application.PrintCommunication = True

    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("R:R")
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("Y:Y")
   
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("AF:AF")
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("AM:AM")
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("AT:AT")
  
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("BA:BA")
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("BH:BH")
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("BO:BO")
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("BV:BV")
   
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("CC:CC")
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("CJ:CJ")
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("CQ:CQ")
    
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("CX:CX")
  
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("DE:DE")

End Sub