Création + copie de feuille

Bonjour, j'ai un bouton <FICHE> dans la feuille "FICHE_TRAME" qui doit se copier une nouvelle feuille qui se nommera "*Valeur de la cellule B2*_FICHE" , qui se situera juste après la feuille dont la ref coffret est identique a la valeur de la cellule B2.

Si quelqu'un aurais une idée de code elle sera la bienvenue. Cordialement.

Hello,

Je pense que ce code répond au besoin :

Sub Copie_Sheet()

Dim Val_B2
Dim F_Index As Integer

Val_B2 = [B2]
F_Index = Worksheets(Val_B2).Index

ActiveWorkbook.ActiveSheet.Copy after:=Worksheets(F_Index)
ActiveSheet.Name = Val_B2 & "_FICHE"

End Sub

Bonjour,

Votre répond parfaitement aux attentes.

Merci pour votre code et temps. Bonne journée.