Option Explicit
Sub Imprimer()
Dim Texte1 As Variant
Texte1 = Application.InputBox("Merci d'indiquer le nombre de page à imprimer", "Options d'impression")
If Texte1 = False Then
MsgBox ("Opération annulée"), vbInformation, "Alerte"
Exit Sub
ElseIf Texte1 = "" Then
MsgBox ("Merci d'indiquer un nombre de page"), vbExclamation, "Alerte"
Exit Sub
ElseIf Texte1 = 1 Then
ActiveSheet.PageSetup.PrintArea = "$B$1:$K$58"
ElseIf Texte1 = 2 Then
ActiveSheet.PageSetup.PrintArea = "$B$1:$K$125"
ElseIf Texte1 = 3 Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$192"
'etc... pour faire le nombre de page'
Else
MsgBox ("Il n'est pas possible d'imprimer plus de 11 pages !"), vbInformation, "Alerte"
Exit Sub
End If
ActiveSheet.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut
End Sub