Discussion :

[lilmonie]

Pour le 1er exemple, après une exécution pas à pas, on peut voir que tous les doublons ne sont pas pris en compte

[mercatog]

Tu as plus que 2 identiques, remplaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With .Range("AY2:AY" & LastLig)
    .Formula = "=If(COUNTIFS($B$2:$B$" & LastLig & ",$B2,$W$2:$W$" & LastLig & ",$W2)=1,"""",""X"")"
    .Value = .Value
End With

[lilmonie]

Merci j'ai testé et ça fonctionne bien^^ Really thank you for your patience
Faudrait après que je configure mon tableau résultat pour un meilleur affichage de la comparaison