Nommer une feuille :Nom +1 ;Nom+2

Dim Sh As Worksheet
Dim erreur As Byte
Dim index As Integer
Dim nom1 as string
nom1=nom
index = 1
..........................................
Do
    For Each Sh In Worksheets
        If Sh.Name = Nom Then
            erreur = 1
            Exit For
        End If
    Next Sh

    If erreur = 0 Then Exit Do

    If erreur = 1 Then
        Nom = Nom1 & index
        erreur = 0
        index = index + 1
    End If
    
Loop

ActiveSheet.Name = Nom
...................................

Dim sh As Worksheet, i As Byte, monnom As String
monnom = "Feuil"
i = 1
debut:
For Each sh In Worksheets
    If sh.Name = monnom Then _
        monnom = monnom & i: i = i + 1: GoTo debut
Next sh
ActiveSheet.Name = monnom