Rename incrémentiel avec valeur de cellule

Bonjour .

Je suis débutant en VBA.

J'ai un code qui me permet de copier une feuille et de la renommer en fonction d'une cellule ( la date de saisie de la feuille)

Le nom de la feuille créé est exemple "2020-05-02 (1)"

Il arrive que je doive créer une nouvelle feuille portant le même nom

Je voudrais que la feuille se renomme automatiquement 2020-05-02 (2)

S'il y en a une troisième 2020-05-02 (3). etc.

'**************************************
'Procédure pour copier feuille
'***************************************

Worksheets("remplir").Copy After:=Worksheets("remplir")
ActiveSheet.Name = Range("C6").Value
Worksheets("remplir").Activate

Merci de m'aider

Bonjour

Un essai à tester. Te convient-il ?

    Worksheets("remplir").Copy After:=Worksheets("remplir")
    On Error Resume Next
    ActiveSheet.Name = Range("C6").Value
    If Err.Number <> 0 Then
        ActiveSheet.Name = Range("C6").Value & Split(Range("C6"), " ")(1) + 1
    End If
    Worksheets("remplir").Activate

Bye !

Allo.

Non ca ne fonctionne pas.

Il me créer une nouvelle feuille remplir (2)

Pour bien comprendre disons que la valeur en c6 = test

Quand toutes les données sont entrées (dans la feuille remplir) j'ai une macro qui:

1. Copie les données de la feuille remplir dans un onglet
2. Créer une copie de la feuille remplir et la renomme test
3. Efface les données de la feuille remplir
4. Active la feuille "Remplir" à nouveau

J'ai besoin que quand les données sont à nouveau toute remplies et que je lance ma macro que à l'étape 2

1. Vérifie s'il y a déjà une feuille qui porte le nom de test
2. Si oui qu'il la renomme test(2)
3. Vérifie s'il y a une feuille nommée test(2)
4. Si oui qu'il nomme la nouvelle feuille test(3)
5. etc....