Sub Imprimer()
On Error GoTo Erreur
Sheets(Sheets("Choix").Range("A1").Value).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Choix").Activate
Exit Sub
Erreur:
Message = MsgBox("Cette feuille n'existe pas!", vbExclamation, "Alerte")
End Sub