Sheets("Bonds").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
[B]Range("A2:K131").[/B]AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Feuil1").Range( _
"b2:b6"), CopyToRange:=Sheets("Agences").Range("A3"), Unique:=False
Cells.Select
Cells.EntireColumn.AutoFit
End Sub