[VBA] Renommé Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Name = "Nom de l'entreprise" Then Exit Sub 'ici A ADAPTER
If Target.Address <> "$D$17" Then Exit Sub
If Target.Value = "" Then Exit Sub
If FeuilleExiste(ThisWorkbook, Target.Value) Then
    MsgBox "la feuille " & Target.Value & " existe déjà"
    Target.Value = ""
    Target.Select
    Exit Sub
Else
    ActiveSheet.Name = Target.Value
End If
End Sub

Sub Badge()
Dim i As Integer, z As Integer
Application.ScreenUpdating = False
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
    Sheets("Nom de l'entreprise").Copy After:=Sheets(i)
    ActiveSheet.Name = "Nom de l'entreprise " & i
Next i
Application.ScreenUpdating = True
End Sub

'sources : https://www.developpez.net/forums/d269391/logiciels/microsoft-office/excel/macros-vba-excel/vba-e-feuille-existe/
Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean
 On Error Resume Next
 FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing)
End Function