Sub Imprimer()
Dim Nom_fichier As String
Dim impDefaut$
impDefaut = Application.ActivePrinter
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3, _
ActivePrinter:="Xerox Phaser 8550DP PS sur Ne00:", Collate:=True
Nom_fichier = Sheets("Feuil1").Range("B14")
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxxxxx\Mes documents\" & Nom_fichier & ".xls"
Application.ActivePrinter = impDefaut
End Sub