bonsoir
Cette macro vérifie l'existant d'un doublon dans une liste :
Public Sub tony()
Dim cel As Range
Dim numero As Long
Dim l As Integer
l = Range("a1000").End(xlUp).Row
numero = Application.InputBox("saisir un numéro :", "coucou", Type:=1)
For Each cell In Range("a1:a" & l)
If cell.Value = numero Then MsgBox ("Déja saisie"): Exit For
Next cell
End Sub
salut
Hervé