Pb de fermeture d'un UF

glm

XLDnaute Occasionnel
Bonjour à tous,
j'ai un petit soucis avec la fermeture d'un userform. Il y a un chekbox(CB_mensuel) et un spinbutton(SB_semaine)dans l'UF.
Quand je modifie le SB et que je clic sur impression(proc)-->pas de soucis, j'ai l'aperçu et l'UF se ferme bien.
Quand je selectionne le CB et que je clic sur impression(proc)-->j'ai l'aperçu mais l'UF ne se ferme pas!!
voici le code
Private Sub Impression_Click()
If CB_mensuel = True Then
With ActiveSheet 'fenêtre active
.PageSetup.PrintArea = '$A$1:$AI$28'
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
End If
fermer 'appel proc pour fermer l'UF
Worksheets('horaires').Activate
i = 7: j = 21: l = 8 'init variables
For x = 1 To 52
If SB_semaine.Value = Cells(l, 1) Then
Worksheets('horaires').PageSetup.PrintArea = '$A$' & i & ':$S$' & j
Worksheets('horaires').PrintPreview
End If

fermer 'appel proc pour fermer l'UF
l = l + 35
i = i + 35
j = j + 35
Next x

Si vous avez des idées pour m'ouvrir l'esprit...
Merci A+
 

glm

XLDnaute Occasionnel
Salut,
merci mais en fait
je fait appel à une proc 'fermer'
qui unload l'UF
cela fonctionne très bien avec le Spinbutton
mais pas avec le checkbox???
Est-ce la feuille active??

Si tu as une autre idée...ce n'est pas de refus
A+