Sub CreateSheets()
Dim facilitiesNum As Long
Dim i As Byte
Dim sh As Worksheet
Worksheets("A").Activate
On Error Resume Next
Application.DisplayAlerts = False
For Each sh In Worksheets
If InStr(1, "A,Database,page_(1),", sh.Name) = 0 Then sh.Delete
Next sh
Application.DisplayAlerts = True
With Sheets("A")
facilitiesNum = .Range("C9").Value 'on récupère le nombre de tableaux à créer
End With
Sheets("Page_(1)").Names.Delete 'supprime la plage nommée, sinon, elle est recopiée dans tous les onglets (étendue classeur)
For i = 2 To facilitiesNum
Sheets("page_(1)").Copy After:=Sheets(i)
ActiveSheet.Names.Add Name:="page_" & i, RefersTo:="='Page_(" & i & ")'!$C$2"
ActiveSheet.Range("C2") = "page_(" & i & ")"
Next i
Sheets("Page_(1)").Names.Add Name:="page_1", RefersTo:="='Page_(1)'!$C$2" 'on recréé la plage nommée
End Sub