Pour chaque item du type MesureCAsA créé, j'ajouterais par exemple :


Dim maMesure As New MesureCAsA
AddHandler maMesure.ChoisiEstCoche, AddressOf GestionEvenement
.../......