Private Sub UserForm_Initialize()
TextBox1 = Feuil1.[E1] 'cellule servant à mémoriser le compteur
End Sub
Private Sub CommandButton1_Click()
Feuil1.Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$23"
'ActiveWindow.SelectedSheets.PrintOut
[E1] = [E1] + 1
Unload Me
End Sub