Sub FAXA()
'
' FAX Macro
' Macro enregistrée le 26/11/2008 par 5513403E
'
'
Sheets("FAX").Select
Selection.AutoFilter Field:=1, Criteria1:="Arras"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Graissage").Select
Range("R1").Select
End Sub