Sub exempleFE()
Dim rep
[A1] = "ENTETE"
[a2:a11] = [TRANSPOSE({1,1,1,1,2,3,4,5,6,7})]
rep = MsgBox("Appliquer le filtre élaboré?", vbQuestion + vbOKOnly, "Choix")
If rep = vbOK Then
Range("A1:A11").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End If
End Sub