Copie de page complexe

Bonjour à tous,

Voila mon problème j'ai des codes mais je ne sais pas vraiment comment intégrer l'un a l'autre.

J'aimerai qu'il me créé des feuilles du nom d'une colonne(colonne changeante:nom de ville) et qu'il copie dans ces feuilles, toutes les formules contenus dans une autre feuille.
Le nom de la ville devra changé en fonction du nom du classeur, pour que les calcul s'effectue.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub CommandButton4_Click()   Dim z As Integer Dim shessai2 As Worksheet   For z = 1 To Range("A65536").End(xlUp).Row   If Not IsEmpty(Cells(z, 1)) Then If Not exist_f(Cells(z, 1)) Then Set shessai2 = Sheets.Add(After:=Sheets(Sheets.Count)) shessai2.Name = Cells(z, 1).Value End If End If   Next z   End Sub Function exist_f(feuille) For Each sh In Sheets If sh.Name = feuille Then exist_f = True Exit Function End If Next exist_f = False End Function

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Cells.Select Range("Aw7").Activate Selection.Copy Sheets("Feuil3").Select ActiveSheet.Paste   Selection.Replace What:="bla", Replacement:="ASE", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

---

Je ne sais pas si je suis très claire...

Fichier exemple en pièce joint, avec les deux premières feuilles que j'ai déjà et le résultat sur les autres feuilles.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Ellipse1_Clic()   'pour créer des onglets à partir d'une colonne   Dim z As Integer Dim shessai2 As Worksheet   For z = 3 To Range("D65536").End(xlUp).Row '4eme colonnes du tableau, celle des villes If Not IsEmpty(Cells(z, 4)) Then If Not exist_f(Cells(z, 4)) Then Set shessai2 = Sheets.Add(After:=Sheets(Sheets.Count)) shessai2.Name = Cells(z, 4).Value Sheets("Nomenclature").Select ActiveSheet.Copy Sheets(shessai2).Select ActiveSheet.Paste End If End If   Next z   End Sub

---

j'ai viens de faire ça.

Je n'ai pas commencé à changer les valeurs, je procede par étape.
Mais je n'arrive pas a avoir de résultat. Je créer les pages mais pas la copie dans chaque page