Erreur dans la définition de la zone d'impression

bonjour.

J'ai un module et je cherche à définir que la zone d'impression définie s'imprime sur une page en largeur sur une page en hauteur

Mon code fonctionne jusqu'à la définition d'imprimer une page de haut par une page de large.

Voici mon code

Sub ajoutfeuille()

'*****************************************************
'Module servant a créer une copie de la feuille remplir
'****************************
Dim nom_souhaite$, nom_feuille$
nom_souhaite = Range("C6").Value '<<<<<< Sert à définir le nom de la feuille en fonctionde la date
nom_feuille = nom_souhaite '1er test avec nom souhaité

While WsExists(nom_feuille) 'tant que la feuille nommée nom_feuille existe, on exécute ce qui suit :
    i = i + 1 'incrémentation
    nom_feuille = nom_souhaite & "(" & i & ")" 'nom_feuille = nom_souhaite & indice incrémenté pour nouveau test
Wend

Worksheets.Add After:=Worksheets("remplir")

'***********************************
' Définition de la largeur de ligne et de colonnes et de la zone d'impression
'*************************************

With ActiveSheet
   .Name = nom_feuille
   Worksheets("remplir").Range("A1:H51").Copy
   Worksheets(nom_feuille).Paste Destination:=.Cells(1, 1)
   Worksheets(nom_feuille).Cells(1, 1).PasteSpecial Paste:=xlPasteColumnWidths
   Worksheets(nom_feuille).Rows(1).RowHeight = Worksheets("remplir").Rows(1).RowHeight
   Worksheets(nom_feuille).PageSetup.PrintArea = Range("A1", "H51").Address
   Worksheets(nom_feuille).FitToPagesWide = 1 'ERREUR
   Worksheets(nom_feuille).FitToPagesTall = 1  'ERREUR

For k = 1 To 60
   Worksheets(nom_feuille).Rows(k).RowHeight = Worksheets("remplir").Rows(k).RowHeight
Next k

End With

End Sub

Merci de m'aider et bonne journée :)

Bonjour,

Utilisez l'enregistreur de macro et définissez ce que vous souhaitez pour votre impression

Vous obtiendrez ainsi le code à utiliser