Bonjour,

Je reviens vous embêter un peu car je ne sais pas pourquoi, mais j'ai un petit problème avec mon tri sur les doublons.

Voici le code que j'utilise :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Do Until Range("A" & i).Value = ""
        i = i + 1
    Loop
 
    Range("A1:A" & i - 1).AdvancedFilter xlFilterCopy, criteriarange:=Range("A1:A" & i - 1), copytorange:=Range("B1"), _
    unique:=True
Mais en B1 et B2 j'ai la même valeur du coup j'ai encore 1 doublon...

Quelqu'un aurait une idée