Bonjour,

Le code ci-dessous réalise une copie d'une feuille et la place après la dernière feuille du classeur. elle est renommer automatiquement : nom de la feuille + (numéro)
exemple : NomFeuille (2) ou encore NomFeuille (3) etc...

Je voudrais savoir qu'elle la fonction qui peut me placer la feuille juste après la feuille original? avec un autre type de renommage comme : Double_NomFeuilleOrigin par exemple.

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub CopyWorkSheet_Activate()
   Dim wh As Worksheet
   Dim ws As Worksheet
 
    Set wh = Worksheets(ActiveSheet.Name)
 
   ActiveSheet.Copy After:=Worksheets(Sheets.Count) ' copier la feuille après toutes les feuilles de calcul
 
 
   End Sub
Merci pour votre aide