Private Sub USF04_CommandButton2_Click()
Unload Me
For i = 1 To 5
If Me.Controls("USF04_CheckBox" & i).Value = True Then
Select Case i
Case 1: USF10.Show
Case 2: With Sheets("FICHE")
.Visible = True
.Select
Call ImprimerFeuilleActive
.Visible = False
End With
Case 3: USF05.Show
Case 4: With Sheets("PV")
.Visible = True
.Select
Call ImprimerFeuilleActive
.Visible = False
End With
End Select
End If
Next
End Sub