Création d'une feuille

[JR26]

bonjour
je souhaite inseré une feuille automatiquement avec une macro, j'ai essayé et je rencontre ce problème il me remplace le nom de la feuil1 par feuil2 et cela bloque mon programme.

Sheets.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Move After:=Sheets(4)

Sheets(" page02").Select
Cells.Select
Selection.Copy
Sheets("Feuil1").Select
Cells.Select
ActiveSheet.Paste
Range("H16").Select
Sheets("page 00").Select
Range("A15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("G8").Select
ActiveSheet.Paste
Sheets("page 00").Select
Range("B15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("G9").Select
ActiveSheet.Paste
Sheets("page 00").Select
Range("C15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("G19").Select
ActiveSheet.Paste
Selection.Font.Bold = True
Range("G9").Select
Selection.Font.Bold = True
Range("G8").Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Dim nom As Variant

ActiveWorkbook.Worksheets("Feuil1").Activate
Selection.Copy
Sheets("page 00").Select
nom = Range("A15").Value
ActiveWorkbook.Worksheets("Feuil1").Name = nom
Sheets("page 00").Select
Range("G15").Select
End Sub

pouvez vous m'aider merci

 

[excalibur]

Re : Création d'une feuille

bonjour jr le forum essai comme cela
Dim Nom As String
Dim Ws As Worksheet
With Sheets("page00")
Range("A15").Select
Nom = Range("A15").Value
For Each Ws In Worksheets
If Ws.Name = Nom Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Nom
End With
salutations