Sub imprimer()
Dim Xcopies As Byte
If Range("I1") = "" Then
MsgBox "Veuillez indiquer le nombre de copie"
Exit Sub
End If
Xcopies = Sheets(1).Range("I1").Value
With Sheets(1)
.PageSetup.PrintArea = "$A$1:$H$25"
.PrintOut Copies:=Xcopies, Collate:=True
End With
End Sub