Doublons sur une ligne

re j'ai trouvé un code qui me permet de ne pas ajouter la valeur dans le cas ou celle-ci existe

Dim c As Range

Set c = Sheets("Feuil1").Range("A1:iv1").Find(TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then


Set c = Nothing
Else


Range("IV" & ActiveCell.Row).End(xlToLeft).Offset(0, 1) = TextBox1
End If


si desfois cela interesse des personnes

bonne journee a tous

Ghislain

Bonjour Ghislain,

un essai sans macro (voir "Validation des données" )

à+
Philippe