Bonjour,
comme c'est pour un devoir je te donne juste le plus difficile pour pouvoir démarrer.
Met ce code sur un bouton. Il boucle sur tous les checkbox (si tu en as d'autres destinés à autre chose, il faudra en plus contrôler une partie leur nom commune à tous ceux qui t'intéressent) et t'annonce dit les cochés :
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim pl As Range ' destiné à recevoir les cellules que tu sélectionneras
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "CheckBox" Then
If Ctrl.Value Then
MsgBox Mid(Ctrl.Name, 9)
' toi tu dois récupérer le nombre
' pour ajouter la cellule qui va bien au range pl
End If
End If
Next Ctrl
'sélectionner pl
End Sub
eric