Impréssion juste recto

Bonjour à tous,

Je suis devant un petit problème, certain de mes onglets contiennent plusieurs lignes qui lors de l'impression sorte en recto verso.

J'ai essayer de modifié la configuration de l'imprimante qui par défaut imprime, pour des économies de papier, uniquement en recto-verso, mais cette modification n'est valable que pour l'onglet sélectionner. j'ai essayer via l'enregistreur de macro mais sans résultat.

J'ai essayé de voir avec le service informatique pour avoir une copie de l'imprimante configuré en recto strict mais la réponse à été négative.

Du coup je voulais savoir si vous aviez des idées pour forcé l'impression en recto strict via du code.

Merci d'avance pour vos idées

J'ai trouvé une idée pour contourner le probleme, j'aimerai insérer des lignes vides de manière réguliere pour que lors de l'impression la feuille soit blanche au verso

du coup avec l'aide de l'enregistreur j'ai pondu ceci

Rows("33:65").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("95:127").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

qui m'insert des plages de cellule vide

Mais sur certain de mes onglets j'ai un peu plus de 1000 lignes je me disais que je partirai bien sur step by step.

et c'est là que j'ai besoin d'un petit coup de pouce

Sub Macro1()
'
' Macro1 Macro
'
With ActiveSheet
I = Range("B65536").End(xlUp).Row
For J = 34 To I Step 66
k = J + 32
    Rows(J & ":" & k).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next J
End With
End Sub

Mais évidement ca fonctionne qu à moitié mon idée, car mon "I" ne s'incrémente pas et donc j'ai les dernières pages qui ne prennent pas l'insertion

Si quelqu'un à une bonne idée pour gérer ce petit pb

bon finalement j'ai trouvé

Voici la solution :

Sub Macro1()
'
' Macro1 Macro
'
With ActiveSheet

a = Range("B65536").End(xlUp).Row
b = 34 + (a * 2)
    For m = 34 To b Step 66
    k = m + 32
    Rows(m & ":" & k).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next m
End With

End Sub

Puis je fais une insertion de saut de page

Sub Sautdepage()
Dim N As Long
Dim I As Integer

With ActiveSheet
N = .Range("B65536").End(xlUp).Row
    .ResetAllPageBreaks
    .PageSetup.PrintArea = "A1:E" & N
End With

For I = 1 To N / 33
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(I * 33 + 1, 1)
Next I

End Sub