Bonjour à tous et à toutes

Je cherche à affecter à un bouton une macro permettant
- la copie de la feuille actuelle juste après la feuille actuelle
- incrémenter le nom de la feuille copiée. par exemple passer de LOCAL01 à LOCAL02

La macro que j'ai trouvée sur le net copie bien la feuille en cours, mais en dernière position et sans changer le nom comme souhaité

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Bouton20_Clic()
 
    ' Désactive la mise à jour de l'écran
   Application.ScreenUpdating = False
 
    Cells.Copy
    Sheets.Add after:=Sheets(Worksheets.Count)
    ActiveSheet.Paste
    ActiveSheet.Range("a1").Select
    Application.CutCopyMode = False
 
End Sub
Merci pour votre aide

Daniel S