Sub Bouton1_QuandClic()
Dim i As Integer, j As Integer, Nbre As Integer
' Cellule definissant le nombre de copie
Nbre = Range("J7").Value
For i = 1 To Nbre
' Inserre une feuille dans le classeur
Sheets.Add after:=Sheets(Sheets.Count)
' Copier / Coller de la page Mère sur page Fille
Sheets("Billet").Cells.Copy Destination:=Sheets(Sheets.Count).Range("A1")
' Nomme la feuille fille
Sheets(Sheets.Count).Name = "Billet (" & CStr(i) & ")"
' mise en place des parametre printer
With Sheets(Sheets.Count).PageSetup
.LeftMargin = Sheets("Billet").PageSetup.LeftMargin
.RightMargin = Sheets("Billet").PageSetup.RightMargin
.TopMargin = Sheets("Billet").PageSetup.TopMargin
.BottomMargin = Sheets("Billet").PageSetup.BottomMargin
.HeaderMargin = Sheets("Billet").PageSetup.HeaderMargin
.FooterMargin = Sheets("Billet").PageSetup.FooterMargin
.Zoom = Sheets("Billet").PageSetup.Zoom
End With
' Nombre de billets par feuille pour numérotation
For j = 1 To 5
' la structure de l'adresse Range : ((j-1)*8) provoque un decallage de 8 lignes
' 7 + ((j-1)*8) ---> 7 est la premiere ligne à mettre à jour
' Si c'est le 1er billet de la feuille, 7 + ((j-1)*8) = 7, le 2eme = 15 etc, on tombe bien sur la bonne ligne
'
' N° des billets : J + ((i-1)*5)) --> c'est la meme structure
' N° de billet = N° de billet de la page + ((N° de la feuille - 1) * Nombre de billet par feuille)
Sheets(Sheets.Count).Range("B" & (9 + ((j - 1) * 10))).Value = i + (j - 1) * Nbre
Sheets(Sheets.Count).Range("D" & (9 + ((j - 1) * 10))).Value = i + (j - 1) * Nbre
Next j
Next i
End Sub