Merci Hervé, ça fonctionne
je connaissais pas la propriété tag, ça n'a rien à voir avec la propriété index?
Par contre je me pose une question sur le code:
Cells(derligne, Val(ctrl.Tag)) = ctrl
Comment ça se fait que cette ligne marche sans ajouter les .value que j'utilise d'habitude...