a tous,

J ai le code suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Dim lig As Long
lig=Worsheets("Dist").Range("CE2").End(xlDown).Row
Worksheets("Dist").Range("CE12").Autofilter
Worksheets("Dist").Range("CE12:CE"&lig).Advancedfilter     Action:=xlfilterCopy, Copytorange:=Range("B15"),Unique=True
qui me permet de creer une liste a partir d une autre

Seuleument, la liste d origine contient des formules qui me donne des valeurs.
Le code ci dessus me fait une nouvelle liste de formules et non de valeurs, je pense qu il faut caller un .Value quelquepart, seuleument apres plusieurs essaye, je ne parvient pas a trouver.



merci d avancea celui qui sait