bonjour
il existe de nombreuses methodes
par exemple pour controler la saisie de doublons dans la plage A1:A5000
procedure à placer au niveau de la feuille en utilisant l'evenement "Change"
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
If Application.WorksheetFunction. CountIf(Range("A1:A5000"), Target.Value) > 1 Then _
MsgBox "ce nom existe déja"
End If
bonne journée
michel