Changer les propriétés d'une checkbox à sa création

Bonjour à tous,

Je débute en VBA et je bloque lors de la création d'une checkbox, plus précisément lorsque je veux changer sa valeur par défaut et le nom affiché sur la checkbox (pas le nom de l'objet en lui même).

Voici le code qui permet de créer une checkbox (trouvé sur internet):

 Sub CreationCheckBox()

Dim Obj As OLEObject
Dim L As Double, T As Double, W As Double, H As Double

L = Range("N12").Left
T = Range("N12").Top
W = Range("N12:O12").Width
H = Range("N12").Height

Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=L, Top:=T, Width:=W, Height:=H)

End Sub

Il fonctionne très bien.

Mais lorsque je rajoute ces deux lignes à la fin :

ActiveSheet.CheckBox1.Caption = "Courbe T1"
ActiveSheet.CheckBox1.Value = True

Ça me met une erreur.

Le plus troublant c'est que lorsque je relance une deuxième fois le code, une checkbox 2 est crée (normal) et ma checkbox 1 a bien son nom et sa valeur par défaut changé comme je veux.

Une idée?

Merci

Bonjour

Option Explicit

Sub CreationCheckBox()
Dim Obj As OLEObject
Dim L As Double, T As Double, W As Double, H As Double

    L = Range("N12").Left
    T = Range("N12").Top
    W = Range("N12:O12").Width
    H = Range("N12").Height

    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
    DisplayAsIcon:=False, Left:=L, Top:=T, Width:=W, Height:=H)
With Obj
.Object.Caption = "Coube T1"
.Object.Value = True
End With
End Sub