Ajouter une condition à une macro existante

Bonjour

Dans mon fichier actuel, j'ai une macro qui me permet de glisser une valeur d'un tableau A vers un tableau B. Je récupère à chaque fois une donnée qui correspond à cette valeur. Je souhaite modifier la récupération de la donnée si la valeur est en double.

Je joins le fichier qui est plus explicite....

Merci et bonne journée

Ta

Hi,

Perso je mettrais mes tableaux des colonnes B et E dans des variables tableaux, je les parserais avec un compteur (si je rencontre tel nom, j'incrémente de 1), et si le compteur est supérieur à 0 alors je prend la valeur de la colonne M au lieu de celle de la colonne k.

With thisworkbook.sheets("Feuil1")

derligneB = .range("B" & rows.count).end(xlup).row
TabB = .range(.cells(3,2), .cells(derligneB,2).value

compteur = 0
for i = lbound(tabB,1) to ubound(TabB,1)
    if TabB(i,1) = nomcherché then
        compteur = compteur+1
    end if
next i

If compteur > 0 then
     valeurAmettre = CelleDeLaColonneM
else
    valeurAmettre = CelleDeLaColonneK
end if

end with

Bonjour

Je suis plus que novice en macro, je précise ...

J'ai essayé d'insérer le code sur la VBA dans mon fichier, mais ça ne fonctionne pas...j'ai que des erreurs ..

Au cas ou vous pourriez l'intégrer dans mon fichier, merci

Bonne journée

Ta

Bonjour

Je joins le fichier en me demandant si de laisser la cellule vide en cas de doublon ça ne serait pas plus simple de trouver une macro adéquate ?

Bonne journée

Ta