Page classeur à mettre en dernière

Question

Bonsoir, j'ai cherché et trouvé des formules pour mettre une page en dernière position mais pour une raison quelconque cela ne fonctionne pas.

Voici le résultat :

Si j'essaie avec 4 feuille j'obtiens N1, N4, N3, N2.

Voici le code utilisé pour cela, j'ai utilisé After :=ActiveSheet avant cette version mais ça ne fonctionnait pas non plus.

classeurDestination.Sheets.Add After:=Sheets(Sheets.Count)  'ajoute une nouvelle feuille Excel après la dernière existante

    x = "N" & CStr(i)
    classeurDestination.ActiveSheet.Name = x                    'renomme la feuille Excel selon le numéro de la nouvelle pièce
    Set feuilleDestination = ThisWorkbook.ActiveSheet

Une idée ?

gmb · Accepted Answer

Un essai à tester.Te convient-il ? Bye ...