Bonjour à tous!
voici un code qui me permet de remplacer les filtre automatique mais malheureusement il ne supprime pas les doublons présent dans la combobox:
if ComboBox1.value="tous" then
range("A1" ).autofilter field=1
else
range("A1" ).autofilter field=1, criteria1:=combobox1.value
end if
merci de votre aide

Alors, je sais pas si ça peut t'aider mais sais tu que tu peux associer un tableau à une combobox?
 
Je m'explique:
tu définis un tableau que tu dimensionnes (ex: Dim MaListe(15) as variant) puis tu associes tout ce que tu as dans ta combo box dans ce tableau.
Jusqu'a présent tu n'as fait que transvaser les données.
 
ensuite tu tapes un code qui ressemblera à ça:
 
Dim Maliste2(0) as variant
j=0
For i = 0 to Maliste.count
  if i=0 then
    Maliste2(j)=Maliste(i)
  end if
  for k=0 to j
    if Maliste(k)=Maliste(i) then goto PasCopie
  next k
  j=j+1
  redim preserve Maliste2(j)
  Maliste2(j)=Maliste(i)
PasCopie:
next i
 
donc maintenant t'as récupéré ta liste sans les doublons.
il faut maintenant la transvaser dans ta combobox:
 
tacombobox.List() = Maliste2()
 
et le tour est joué!
 
Je bloque moi aussi sur un truc.. si tu pouvais m'aider...
j'ai laissé un post.
@+