[SergiO]

Bonjour MEDIALYS,

Voici un code à tester :

Sub Imprimer()

Dim x As Single

Dim copie As Single

copie = InputBox("Nb de copies :")

For x = 1 To copie Step 1

Range("c4").Value = x

ActiveWindow.SelectedSheets.PrintOut

Next x

End Sub

@+