zone d'impression

[boby]

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

merci de votre aide