Set Etab = Application.Workbooks.Add(Chemin & "\Etab.xls")
modele.Sheets("Feuil1").Name = UCase(Etab.Sheets(Dep).Range("a1").Value) 'Nommer la feuille 1 du nom de la ville en A1
SautsDePage Para.Sheets("Paramtr").Range("P12").Value, Para.Sheets("Paramtr").Range("P16"), _
modele.Sheets(UCase(Etab.Sheets(Dep).Range("a1").Value)) 'Créer un onglet par ville (A1) et Nbtsts
Etab.Worksheets(Dep).Activate
ActiveSheet.Range("A2").Select 'Créer un onglet par ville (A2) et Nbtsts
'Cette boucle crée les onglets correspondant aux villes
i = 2
While Not IsEmpty(Etab.Worksheets(Dep).Range("A" & i))
modele.Activate
modele.Sheets.Add.Name = UCase(Etab.Worksheets(Dep).Range("A" & i).Value)
modele.Sheets(UCase(Etab.Worksheets(Dep).Range("A" & i).Value)).Move after:=Sheets(Sheets.Count)
modele.Sheets(UCase(Etab.Sheets(Dep).Range("a1").Value)).Activate
ActiveSheet.Cells.Select
Selection.Copy
ActiveSheet.Range("A1").Select
Sheets(UCase(Etab.Worksheets(Dep).Range("A" & i).Value)).Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.DisplayAutomaticPageBreaks = False
ActiveSheet.PageSetup.PrintArea = "$A$1:$AU$120"
ActiveWindow.Zoom = 40
'With ActiveSheet.PageSetup
'.Zoom = False
'.FitToPagesWide = 1
'.FitToPagesTall = 1
'End With
SautsDePage Para.Sheets("Paramtr").Range("C12").Value, Para.Sheets("Paramtr").Range("P16"), _
modele.Sheets(UCase(Etab.Worksheets(Dep).Range("A" & i).Value))
ActiveSheet.PageSetup.Zoom = 33
i = i + 1
Etab.Activate
Worksheets(Dep).Activate
Wend
modele.Sheets(UCase(Etab.Sheets(Dep).Range("a1").Value)).Activate
ActiveSheet.Protect ("valerie")
ActiveSheet.EnableSelection = xlUnlockedCells
modele.Sheets("Listing").Visible = xlSheetVeryHidden
Etab.Close savechanges:=False
Etab.Close savechanges:=False
Application.ScreenUpdating = True
modele.Activate