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