Bonjour a tous

petite question :
j ai un tableau avec disons 3 feuilles nommées "page1", "page2", "page3"
mon but est d inserer apres chacune des feuilles, une nouvelle feuille, et de lui donner le meme nom que la feuille precedente suivie du suffixe "bis"
pour obtenir in fine le classeur contenant les feuilles suivantes :
"page1", "page1bis", "page2", "page2bis", "page3", "page3bis"

voila mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim n As Integer, i  As Integer
n = Sheets.Count
 
For i = 1 To n
Sheets.Add
With Sheets.Add
.Move After:=Sheets(i)
.Name = Sheets(i).Name & "bis"
End With
Next i
Evidemment rien ne marche il m insere 2 fois plus de feuilles et ne rprends pas les noms des anciennes.
Damned !

Comment sortir de l ornière ?