macro filtre auto

Bonjour,

J'ai écrit une macro utilisant autofilter afin de comparer les valeurs (à 6 chiffres et lettrs) des cellules liste 1 avec celles de liste 2 (à 9 chiffres et lettres). J'aimerai voir si ces valeurs sont contenu dans la liste 2 (vu la différence de format). La valeur de la cellule est bien copiée dans la case de filtre auto avec l'option "contient la valeur" mais il ne fait pas OK ensuite, donc la liste n'affiche pas la sélection, alors qu'il y a des valeurs possibles...
QUelqu'un aurait une idée?

Merci beaucoup...


voici la macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

For i = 2 To 80 Step 2   Windows("Liste1.xls").Activate Sheets("Feuil3").Select Range("A" & i).Select Application.CutCopyMode = False Selection.Copy valeur = Range("A" & i).Value       Windows("Liste2.xls").Activate ActiveWindow.ScrollColumn = 1 Sheets("Feuil1").Select Selection.AutoFilter Field:=1, Criteria1:=valeur & " * ", Operator:=xlAnd       Selection.SpecialCells(xlCellTypeVisible).Copy Windows("Liste1.xls").Activate Sheets("Feuil4").Select Range("A" & i - 1).Select ActiveSheet.Paste     Next

---