zone d'impression

Bonjour à tous,

voici mon code
Sub imprimer ()

Dim DerLig As Integer
Dim DerCol As Integer
DerLig = Range("a65536").End(xlUp).Row
DerCol = Range("h40").End(xlToRight).Column
ActiveSheet.PageSetup.PrintArea = Range("A1:" & Cells(DerLig, DerCol).Address).Address

End Sub

je souhaiterai imprimer ma feuille qui va de la colonne A à O
mais qui peut contenir différentes lignes

habituellement ce code fonctionne mais la dans l'apercu avant impression mon tableau ne prends pas la largeur de la feuille mais seulement la moitié environ
et les 2 derniere lignes sont oubliées à l'impression
et il m'imprime également des feuilles blanches

merci de votre aide