Création et suppression checkbox

C'est pas grave mais c'est mieux de nous tenir au courant de l'avancée des investigations.

Voici un essai pour supprimer et créer :

Sub SupprimerCheckboxes(Plage as range)
for each chk in Plage.parent.checkboxes
    if not intersect(chk.topleftcell, plage) is nothing then chk.delete
next chk
end sub

Sub AjouterCheckboxes(Plage as range)
for each cell in Plage
    with cell
        .parent.checkboxes.add(left=.left, top=.top, width=.width, height=.height).name = .address
    end with
next cell
end sub

On procède ensuite ainsi :

sub test()
with activesheet.range("D1:D5")
    SupprimerCheckboxes .cells '<<< supprimer en D1:D5
    AjouterCheckboxes .resize(10, 1).cells '<<< ajoute en D1:D10
end with
end sub

Cdlt,

Edit : Tant mieux si le problème est résolu !

Au passage, ce code d'ajout attribue au nom des checkboxes l'adresse de destination. Il est ensuite facile de les supprimer :

activesheet.checkboxes("$D$1").delete
'ou
activesheet.shapes("$D$1").delete

Bonne continuation,