Zone d'impression automatique InputBox

Bonjour,

Sur une feuille d'un classeur Excel, j'ai un tableau de dimension ("A1:O82") que je peux générer autant de fois que nécessaire grâce a une macro existante.

Celle-ci :

Sub ajou()

ActiveSheet.Unprotect
nbtab = InputBox("Combien de feuille ?")
For etage = 1 To nbtab
    Rows("1:82").Select
    Range("A82").Activate
    Selection.Copy
    Rows(87 * etage - etage + 1).Select
    Selection.Insert Shift:=xlDown
Next etage
    Application.CutCopyMode = False
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
End Sub

La macro génère en fonction de la valeur rentré dans la InputBox le nombre de tableau correspondant,

J'aimerais en fonction du nombre de tableau généré que la zone d'impression s'adapte automatiquement.

Attention, celle si devra obligatoirement s’étendre de la colonne A à O et que lors de l'impression 1 tableau = 1 feuille imprimé.

Je n'ai aucune compétence technique et je ne sais pas comment m'y prendre ça fais plusieurs semaine que je cherche une solution,

je vous prie de bien vouloir m'aider, merci d'avance de votre attention et de vos prochaines réponses,

Cordialement,

Jean,

Bonjour

En supposant que votre tableau part bien de A1, essayez ceci

Sub ajou()
Dim nbtab As Byte
Dim etage

With ActiveSheet
    .Unprotect
    On Error Resume Next
    nbtab = InputBox("Combien de feuille ?")
    If nbtab = 0 Then Exit Sub
    For etage = 1 To nbtab
        .Rows("1:82").Copy
        .Rows(87 * etage - etage + 1).Insert Shift:=xlDown
    Next etage
    .PageSetup.PrintArea = .UsedRange.Address
    Application.CutCopyMode = False
    .Range("A1").Select
    .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End With
End Sub

Si ok,

Cordialement