Bonsoir shmoulik,
Personnellement j'avais cette macro qui évite la saisie des doublons :
Clique du bouton droit sur l'onglet de la feuille et colle la macro ci-dessous.
Private Sub Worksheet_Change1(ByVal Cellule1 As Excel.Range)
If Cellule.Column = 1 Then
If Application.WorksheetFunction.CountIf(Range("A:A"), Cellule.Value) > 1 Then
MsgBox "Suppression de l'entrée figurant déjà dans la liste, Ok ?"
Cellule1.Value = ""
Cellule1.Select
End If
End If
End Sub
Mais je ne crois pas qu'elle fonctionnera dans ton. Enfin, je la donne toujours au cas où.