Sub Creation_page_suivant_compteur()
Dim fin, début, i As Integer
Dim nom As Variant
fin = Sheets("cal").Cells(22, 1).Value
For début = 1 To fin
Sheets("Modèle").Select
Sheets("Modèle").Copy after:=Sheets((Sheets.Count))
nom = "Modèle " & début
Sheets(Sheets.Count).Name = nom
Next
End Sub
Sub Suppression_page_suivant_compteur()
Dim fin, début, i As Integer
Dim nom As Variant
fin = Sheets("cal").Cells(22, 1).Value
début = 1
Application.DisplayAlerts = False
While début <= fin
nom = "Modèle " & début
Sheets(nom).Select
ActiveWindow.SelectedSheets.Delete
début = début + 1
Wend
Application.DisplayAlerts = True
End Sub