La recherche de doublon se fait jusqu'a la dernière cellule non Vide en colonne A avec cette fonction (Module 1):
DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
Pour le controle dans la liste, c'est ici qu'est déclaré la range (Module 2):
Dim rng As Range: Set rng = Application.Range("Feuil1!A6:E34")
Pour ce qui est de l'emplacement de la Liste c'est ici (Module 2):
i = 6 '''''Départ Ligne
With cel
For i = 6 To 28 '''''''''Interval de recherche (Ligne
If .Value = Cells(i, 15).Value Then ''''''''''15 est la Colonne O, la 15ème lettre de l'alphabet
Où 6 est la ligne qui va être incrémenter jusqu'a 28, et 15 la colonne, donc O.
Et voici le fichier avec les modification :