ListBox de choix

Bonjour à tous;

Je suis novice dans la programmation en VBA. J'ai une macro qui se termine par un enregistrement et une impression de ma feuille mise en forme.

je souhaiterai y insérer un code permettant de choisir soit un enregistrement, soit une impression, soit un enregistrement + une impression.

Pourriez-vous m'aider svp..

Ci-joint la fin de ma macro:

--------------------------------------------------------------------------

'Sauvegarde automatique
nom = "RO_Berceaux_du_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date)

'ChDir "C:\Users\p251855\Desktop\COMPAS\RO"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\p251855\Desktop\COMPAS\RO\Berceaux B58\" & nom & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

'Impression
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="\\mue500\MUIPI8C sur Ne05:", Collate:=True

'Fin de mise en forme
MsgBox ("Impression lancée et RO sauvegardée sous " & nom & ".xls")
--------------------------------------------------------------------------


Merci de votre aide.