Problème avec le extraction sans doublon + tri

Bonjour,


je cherche à effectuer une extraction sans doublon avec tri (tri de ma 1ère colonne puis de la 2nde) de ma feuille "filtre" sur ma "FAM". ce que j'y arrive avec une macro commandé par un bouton.

jusqu'à la tout va bien sauf lorsque je reclique sur le bouton j'ai un bug qui s'affiche que je ne comprends pas. Si j'efface manuellement les données copié et que je reclique pas de problème, Si j'ajoute une ligne de code pour effacer lors de l'activation du bouton cela bug aussi.

j'ai également eu aussi comme soucis le fait que lorsque je cliquais sur le bouton cela me donnait des résultats différents à chaque clique.

Sub db()



 Sheets("Filtre").Range("B1:c1000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("FAM").Range("C7"), Unique:=True

 End Sub
Sub tri2()
 Sheets("FAM").[C7:d300].Sort key1:=Sheets("FAM").[C8], Order1:=xlAscending, _
       key2:=Sheets("FAM").[D8], Order2:=xlAscending, Header:=xlGuess
End Sub