Private Sub USF5_CommandButton3_Click()
Dim SelectionFeuille, Feuille As String
Application.ScreenUpdating = False
SelectionFeuille = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
For Each Feuille In SelectionFeuille
Worksheets(Feuille).Activate
Call Masquer_Lignes_vides
Call ImprimerFeuilleActive
Next
Application.ScreenUpdating = True
Unload Me
End Sub