Renommer la feuille à chaque copie de celle-ci

Bonjour l'équipe,

Pourriez vous m'apporter une solution concernant mon fichier ci-joint. Je m'explique, à chaque appui sur le Bouton Copy BAE, j'effectue un copier coller de ma feuille exemple BAE 1 date du 25/01/2022 (en vert), j'aimerais que les feuilles à chaque enregistrement se suivent soit, BAE 1, BAE 2, BAE 3, etc....

Et non BAE 1, BAE 1 (2), BAE 1 (3) etc...

Dans l’attente, merci de toute l’aide que vous pourrez m’apporter.

Bonne fin de journée à l'équipe.

Riko

Bonjour,

A tester,

Sub CopyBordereauAnalyseDesEaux()

Dim Continuer As Boolean
Dim I As Integer, NbBae As Integer
Dim NomFeuille As String

    Continuer = True
    NomFeuille = ActiveSheet.Name
    NbBae = 0

    For I = 1 To Sheets.Count
        If Left(Sheets(I).Name, 3) = "BAE" Then NbBae = NbBae + 1
    Next I

    ' Cas où on aurait déjà BAE 3 et pas BAE 2
    For I = 1 To Sheets.Count
       If Split(Sheets(I).Name, " ")(1) = NbBae + 1 Then Continuer = False
    Next I

     If Continuer = False Then
       MsgBox "Onglet déjà existant !", vbCritical
       Exit Sub
    End If

    With Sheets(NomFeuille)
         If .Range("J1") = "" Then .Range("J1") = .Range("N1")
        .Copy After:=Sheets(1)
    End With

    With ActiveSheet
       .Range("J1") = Sheets(NomFeuille).Range("J1") + 1
       .Name = "BAE " & NbBae + 1
    End With
    Sheets(NomFeuille).Range("J1") = Sheets(NomFeuille).Range("J1") + 1

End Sub

Nb : Hormis le nombre de tentatives , je n'ai compris à quoi vous servait la valeur dans J1.

Bonsoir Eric,

Fonctionne parfaitement, bien vue pour : (' Cas où on aurait déjà BAE 3 et pas BAE 2) testé et message d'erreur Ok ("Onglet déjà existant !") .

Merci pour ton aide.

Bonne soirée à toi et à l'équipe.

Riko