Private Sub CommandButton_suivant_Click()
Dim Ctrl As Control
Dim I As Long
For Each Ctrl In MultiPage_KE.Controls
If TypeName(Ctrl) = "CheckBox" Then
If Ctrl.Value = True Then
I = I + 1 ' boucle pour connaitre le nombre de checkbox cochées
End If
End If
Next Ctrl
If I = 3 Then
Call MsgBox("Test", vbExclamation, Application.Name)
End If