Macro "Anti doublon" à intégrer dans une autre macro

Private Sub NouvelAgent()

    Dim NomAgent As String

    NomAgent = InputBox("Quel est le NOM de l'Agent ?")

    If NomAgent = "" Then Exit Sub 'si vide, fin

    'recherche en colonne A, si existe, message puis fin
    If Application.WorksheetFunction.CountIf(Range(Cells(2, 1), _
                                             Cells(Rows.Count, 1).End(xlUp)), _
                                             NomAgent) > 1 Then

        MsgBox "Nom déjà utilisé, ajoutez l'initiale du prénom en plus !"
        Exit Sub

    End If

    'arrivé ici, le nom de l'agent n'existe pas, donc...

    'Permet de trouver la 1ère ligne vide du tableau dans la colonne B <-??? tu est sûr ?
    'parce qu'ici c'est "c29" et en plus, on ne sait pas sur quelle feuille ?
    Range("c29").End(xlUp).Offset(1, 0) = NomAgent
    'ce serait mieux de cette façon :
    'Sheets("Feuil1").Range("C65536").End(xlUp).Offset(1, 0) = NomAgent

    'Rend visible la feuille Modèle en vue de copiage
    Sheets("Modèle").Visible = True

    'Crée une feuille à partir du modèle et le renomme avec le nom de l'agent
    Sheets("Modèle").Copy After:=Sheets(3)
    Sheets("Modèle (2)").Name = NomAgent
    Sheets(NomAgent).Range("C3") = NomAgent

End Sub

Option Explicit
Public flag As Boolean
Sub NouvelAgent()
Dim Reponse As Variant
Dim dl1 As Long
With Sheets("Récap")
Dim NomAgent As String
Dim Message As String
' Retire la protection de la feuille Récap en activant la macro appropriée
    'OTProtection

NomAgent = ""
Message = "Quel est le NOM de l'Agent ?"
Do
        Reponse = Application.InputBox(Prompt:=Message, Title:="Nouveau Nom", Type:=2, Default:=NomAgent)
        Select Case Reponse
            Case ""
                MsgBox "Vous n'avez pas  fait de saisies!" & Chr(13) & "recommencez!"
            Case False
                Exit Sub
            Case Else
                flag = False
                NomAgent = CStr(Reponse)
                dl1 = .Range("c" & .Rows.Count).End(xlUp).Row + 1
                .Range("c" & dl1) = NomAgent
                If flag = False Then Exit Do
                Message = "Nom déjà utilisé, ajoutez l'initiale du prénom en plus"
                .Range("c" & dl1) = ""
        End Select
 Loop
                                         '
End With

End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'colonne à "surveiller" (ici colonne c)
If Target.Column <> 3 Then Exit Sub
' pour vérifier si la saisie n'existe pas déjà dans les lignes précédentes
If Application.WorksheetFunction.CountIf(Range(Cells(2, Target.Column), Cells(Target.Row, Target.Column)), Target.Value) > 1 Then flag = True
End Sub