Sub Imprime()Dim DerLig As Integer
DerLig = Range("a65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$a$1:$i$" & DerLig
ActiveWindow.SelectedSheets.PrintPreview
Select Case MsgBox("Voulez-vous imprimer votre document ?", vbYesNo + vbQuestion, "Confirmation d'Impression de Document")
Case vbYes
ActiveSheet.PrintOut
Case vbNo
End Select
End Sub