EXCEL 360 vba code print hidden excel sheets

[hokousai]

Projet test 1.0.xlsm



Good morning all,
I have a problem with my excel file at the time of printing.
My sheets are hidden.
I use this code to print the sheets hide

Private Sub print_Click ()
Dim Fe As Worksheet
Application.ScreenUpdating = False
For Each Fe In Worksheets
If Fe.Visible = xlSheetHidden Then
Fe.Visible = xlSheetVisible
Fe.PrintOut
Fe.Visible = xlSheetHidden
End If
Next Fe
Application.ScreenUpdating = False
End Sub.

But impossible to print the sheet that I select in the UserForme.
This prints the three sheets visible in the ListBox.
I am a noob in VBA I do not understand where the error in the codes is.
I need your help
Thank you in advance.