/
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 05/08/2005 par xxxxxxxxx
'
Dim valeur As Integer
valeur = Range('a1').Value
Rows('1:1').Select
Selection.AutoFilter
Range('I11').Select
ActiveWindow.SmallScroll ToRight:=5
Selection.AutoFilter Field:=14, Criteria1:=valeur, Operator:= _
xlAnd
End Sub
/[code]
merci d'avance
Shintra