XL 2016 Transformer un devis en facture

[David10]

Bonjour,
je suis tombé sur une discussion du forum vu que j'ai le soucis de pouvoir transformer mon devis en facture avec vba.
J'ai exécuté la macro de @soan sur mon devis aussi pour pouvoir generer la facture avec mon bouton de commande.
Sauf que, ma feuille2 créer à droite devient mon devis et ma feuille1 de base se transforme en facture, je sais pas pourquoi.
Si quelqu'un peut m'aider s'il vous plait.

Voici mon écriture sur vba :

Sub NouvFact()
Dim N%, chn$: Application.ScreenUpdating = 0
With ActiveSheet
N = .Index: chn = .Name: .Copy , Worksheets(N)
End With
ActiveSheet.Name = Replace$(chn, "D", "F")
[A12] = "N° FACTURE"
[A54] = [C45]: [C45] = ""
[C44] = [F82]: [C46] = [A48]
[A47] = "Assurance MMA Responsabilité Civile et Responsabilité Civile Décennale N°000000141528789": [A49] = ""
[F48] = [F73]
[C12] = ""
[C13] = ""
[F16] = ""
[A48] = "BENTEJAC CHRYSTELLE ET SPAGNOLI MARIE France 54 rue de la République - 47200 Marmande"
End Sub

Merci pour votre aide

 

[David10]

Cela fait que les macros que j'ai effectué pour que je puisse le mettre en pdf, n'est pas automatiquement sur ma nouvelle feuille, lorque je clique sur le bouton qui le concerne, je suis obligé de repartir affecté à nouveau la macro au bouton sur la nouvelle feuille en question