[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]
[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=NAVY]Sub[/COLOR] ValFiltres()
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] CritFiltres(1 [COLOR=NAVY]To[/COLOR] 3, 1 [COLOR=NAVY]To[/COLOR] 5) [COLOR=NAVY]As Variant
Dim[/COLOR] C [COLOR=NAVY]As Byte
With[/COLOR] Sheets("Feuil1").AutoFilter
[COLOR=NAVY]For[/COLOR] C = 1 [COLOR=NAVY]To[/COLOR] 5
[COLOR=NAVY]With[/COLOR] .Filters(C)
[COLOR=NAVY]If[/COLOR] .[COLOR=NAVY]On Then[/COLOR]
CritFiltres(1, C) = .Criteria1
[COLOR=NAVY]If[/COLOR] .Operator [COLOR=NAVY]Then[/COLOR]
CritFiltres(2, C) = Choose(.Operator, "Et", "Ou")
CritFiltres(3, C) = .Criteria2
[COLOR=NAVY]End If
End If
End With
Next
End With
With[/COLOR] Sheets("Feuil2")
.Range("D2:H4").Value = CritFiltres
[COLOR=NAVY]End With
End Sub[/COLOR]