[COLOR=blue]With[/COLOR] Sheets([I]"Criteres"[/I])
.Columns([I]"B:B"[/I]).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range([I]"C1"[/I]), Unique:=[COLOR=blue]True[/COLOR]
[COLOR=green]'Transposer les données dans la feuille active[/COLOR]
[COLOR=blue]With[/COLOR] .Range(.Range([I]"C1"[/I]), .Range([I]"C1"[/I]).[COLOR=blue]End[/COLOR](xlDown))
.Copy
ActiveSheet.Range([I]"B28"[/I]).Resize(, .Rows.Count).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=[COLOR=blue]False[/COLOR], Transpose:=[COLOR=blue]True[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]With[/COLOR]
Application.CutCopyMode = [COLOR=blue]False[/COLOR]