JdViRuS a écrit :
Merci, je progresse .. Doucement mais je progresse
Si je change :
If c <> "" Then
res = Application.Match(c, wkb2.Sheets(1).Range("k3:k500"), 0)
If IsError(res) Then
En :
If c <> "" Then
res = Application.Match(c, wkb2.Sheets(1).Range("h3:h500"), 0)
If IsError(res) Then
Je ne devrai pas avoir de doublon ?!
Alors que j'ai l'impression qu'il n'y a plus de vérification de cette condition...
Ai-je louper quelque chose ?
Re,
Le test du Doublon ... avec ta modification ... se fait sur la Colonne H ...
Est-ce bien cela que tu veux ...???