Zone D'impression automatique avec 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é.

Merci d'avance !!

Ah mince j'oubliais.. voici un fichier Bidon qui permet de directement visualiser ma situation.

Le tableau concerné est en bleu ("A1:O82") le bouton de gauche permet de générer les tableau celui de droite est une fonction "Erased"

Merci de votre attention dans l'attente de vos réponse je reste disponible pour tout renseignement complémentaire.

Cordialement,

Jean,