Sub Impression()
Dim Reponse As Boolean
Reponse = Application.Dialogs(xlDialogPrinterSetup).Show
If Reponse = "False" Then Exit Sub
Range("b1").Select
If Range("z1").Value = 1 Then
MsgBox "impressiondeslistes"
ElseIf Range("z1").Value = 2 Then
MsgBox "impressiondesdiagr"
Else
MsgBox "impressiondesresultats"
End If
End Sub