Problème avec ma première macro(inputbox)

Sub CopieFeuille()
'
' CopieFeuille Macro
' Macro enregistrée le 28/04/2007 par Pierre
    Dim ws As Worksheet, MonNom As String

    MonNom = InputBox(prompt:="Nom du salarié?")
    If MonNom = "" Then Exit Sub
    For Each ws In Worksheets
        If ws.Name = MonNom Then
        MonNom = InputBox("Cette Fiche exite déjà ! Inscrivez un autre nom")
        If MonNom = "" Then Exit Sub
        end if
    Next ws
    
    Sheets("Modele").Select
    Sheets("Modele").Copy After:=Sheets(2)
    ActiveSheet.Name = MonNom



End Sub

    Sheets(MonNom).Select
    ActiveWindow.SelectedSheets.Delete
End Sub

Sub CopieFeuille()
' CopieFeuille Macro
' Macro enregistrée le 28/04/2007 par Pierre
Application.DisplayAlerts = False
re:
Worksheets("Modele").Copy After:=Sheets(2)
réponse = InputBox(prompt:="Nom du salarié ?")
If réponse = "" Then ActiveSheet.Delete: GoTo re
For i = 4 To Sheets.Count
    If Sheets(i).Name = réponse Then
        ActiveSheet.Delete: MsgBox "nom existant déjà"
        GoTo re
    End If
Next i
ActiveSheet.Name = réponse
End Sub

Sub Ajout()
    Dim ws As Worksheet, MonNom As String
    'force à saisir un nom
    Do
      MonNom = InputBox(prompt:="Nom du salarié?")
      If MonNom = "" Then MsgBox "Il faut saisir un nom !"
    Loop Until MonNom <> ""
    
    For Each ws In Worksheets
        If UCase(ws.Name) = UCase(MonNom) Then
          MsgBox ("Cette Fiche exite déjà ! Inscrivez un autre nom")
          Exit Sub
        End If
    Next ws
    Sheets("Modele").Copy After:=Sheets(2)
    ActiveSheet.Name = MonNom
End Sub