Chercher une checkbox et la renommer

Salut. Je voudrais chercher si la feuille contient une checkbox d'un certain nom et si elle existe la renommer.

J'ai ce bout de code mais il ne semble pas fonctionner :

Code:

---

1 2 3 4 5

Dim Chk As CheckBox   For Each Chk In Wb.Worksheets(1).CheckBoxes If Chk.Name = "Checkbox1" Then Chk.Name = "cbEspèces" Next Chk

---

Merci par avance :)

Trouvé ! Il ne fallait pas parcourir des Checkboxes mais des Shapes :

Code:

---

1 2 3 4 5

Dim Sh As Shape   For Each Sh In Wb.Worksheets(1).Shapes If Sh.Name = "CheckBox1" Then Sh.Name = "cbEspèces" Next

---