Dupliquer Feuille et Renommer

Bonjour Tout le monde!

Après plusieurs recherches sur le forum, je n'ai pas pu trouver de réponses à mon problème, je poste donc un sujet en espérant vous voir y répondre!

Je débute en VBA, et je souhaite faire un code pour copier une feuille neutre, la renommer et la placer en dernier (à droite). Pour l'instant :

Sub deplacercopier()

Sheets("Fiche Neutre").Select

Sheets("Fiche Neutre").Copy After:=Sheets(1)

ActiveSheet.Name = "Fiche "

End Sub

Je souaiterais que chaque fois que je lance le code, la nouvelle feuille se renomme en *Fiche (+1)" et qu'elle se place en dernier. A la fin, j'aurai : Fiche1, Fiche2, Fiche3, etc... Ma fiche Neutre reste standard.

Pouvez-vous m'aidez?

Merci !

Bonjour

A vérifier

Sub deplacercopier()
Dim NomFeuille As String
Dim Compteur As Integer

  Application.ScreenUpdating = False
  Sheets("Fiche Neutre").Copy After:=Sheets(Sheets.Count)
  On Error Resume Next
  Do
    Err.Clear
    Compteur = Compteur + 1
    NomFeuille = "fiche" & Compteur
    ActiveSheet.Name = NomFeuille
  Loop Until Err.Number = 0
  On Error GoTo 0
End Sub

Bonjour,

A adapter au nombre de feuilles qu'il y a déjà sur le classeur

Si ce nombre peut changer tu dis ont fera autrement.

Sub deplacercopier()
    Sheets("Fiche Neutre").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Fiche " & Sheets.Count - 1
End Sub

A+