Problème de création de nom de nouvel onglet

Bonjour à tous,

je m'adresse à vous car j 'ai un problème en vba et n'étant pas expert( loin de la) j'ai besoin d'une petite aide dans la mesure du possible. J'ai créer un code qui permet de créer un nouvel onglet en le renommant.
tout d'abord j'ouvre une combobox qui permet de sélectionner ou de créer des nom de projet via une base de données, puis cela ouvre un nouveau document et le projet sélectionné ou créer devient le nouvel onglet du document ouvert. (je ne sais pas si c'est très clair). voici mon code peut-être que ce sera plus clair :

Private Sub OK_Click()
Dim i As Integer
nom_fichier = "C:\Users\PERSO\recapcommandes.xlsm"

Me.Hide

If Me.Projet.ListIndex = -1 Then _

Workbooks("Commande fournisseur.xlsm").Sheets("Base").Cells(28, 6500).End(xlToLeft).Offset(0, 1).Value = Me.Projet.Value

Set wb = Workbooks.Open(nom_fichier)

        For i = 1 To Worksheets.Count
                If Worksheets(i).Name = Me.Projet.Value Then
                    Sheets(Me.Projet.Value).Select

                Else
                    With Workbooks("recapcommandes.xlsm")
                            Sheets.Add.Move After:=Sheets(Sheets.Count)
                            Sheets(Sheets.Count).Name = Me.Projet.Value
                          
                    End With
                    End If
        Next i
Else
Set wb = Workbooks.Open(nom_fichier)

    For i = 1 To Worksheets.Count
                If Worksheets(i).Name = Me.Projet.Value Then
                   Sheets(Me.Projet.Value).Select

                Else
                    With Workbooks("recapcommandes.xlsm")
                       Sheets.Add.Move After:=Sheets(Sheets.Count)
                        Sheets(Sheets.Count).Name = Me.Projet.Value     
                    End With
                End If
        Next i

L'erreur qui m'est affiché est : Erreur d'exécution 1004, ce nom est déjà attribué, veuillez utilisez un autre nom. Cette erreur concerne la ligne
Sheets(Sheets.Count).Name = Me.Projet.Value

Je ne vois pas quel est le problème,j'espère que quelqu'un pourra m'aider, je vous remercie de votre aide.