Bonsoir Marion,
ou ces quelques lignes de code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
If Application.WorksheetFunction. _
CountIf(Range("a2:a1000"), Target.Value) > 1 Then
MsgBox "ce nom a déja été saisi"
End If
End If
End Sub
qui sont à qq chose près les mêmes que celles que j'ai posté un peu plus bas sur le forum.
J'attire ton attention sur le fait que le message généré n'est pas bloquant afin que tu puisses tout de même saisir les éventuels homonymes.
Bonne fin de soirée
Rénato