modif programme USF

Bonjour
j utilise une macro pris sur ce site que je désire modifié
Merci à celui qui l a realisé milles excuse j ai perdu son nom
il s agit d imprimer 2 feuilles
lors de la demande d impression d inscrire en M1 M XXXX pour la premiere et pour la deuxième M YYYYYY
c est certainement dans cette partie du code mais je ne sais pas où
MERCI d avance

Private Sub CmdImprimer_Click()
Application.ScreenUpdating = False
For I = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(I) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(I)
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(I)).PrintOut
Else
End If
Next I
'Application.DisplayAlerts = True
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True
'Cmdfermer.
End Sub