VBA Impression (nombre de copies)

Bonjour à tous,

Je voudrai ajouter dans le code le nombre de copies (suite à InputBox),

comment écrire cette ligne et où la placer ?,

j'ai essayé d'enregistrer mais sans résultat.

    With ActiveSheet
        .ResetAllPageBreaks                 'efface sauts de pages existants
            With ActiveSheet.PageSetup
                .PrintTitleRows = "$2:$8"   'lignes titre
            End With
        .PageSetup.PrintArea = "b2:h" & DerLig
            For i = 2 To Pg
                .HPageBreaks.Add Before:=Rows(i * 780)          'sauts de page
            Next i
            If Pg > 1 Then .HPageBreaks.Add Before:=Rows(Nb)    'saut de page
            Application.ScreenUpdating = True
        .PrintPreview 'aperçu
        Rep = MsgBox("On imprime ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression")
        If Rep = vbYes Then
        .PrintOut
        End If
    End With

Bonne journée

Claude.

Bonjour Claude

Je ne suis pas sûre d'avoir bien compris, mais pour imprimer en 2 exemplaires :

.PrintOut copies:= 2

Amicalement

Nad

Bonjour et merci Nad,

J'ai pas pu tester (plus d'encre), mais çà doit être bon, çà donne en code:

Rep2 = InputBox("Combien de copies ? ", , 1)
If Rep2 = "" Then Exit Sub
.PrintOut copies:=Rep2

Bonne semaine

Claude.