Cacher un CommandButton en fonction de l'utilisateur Windows

Bonjour,
Je souhaiterais cacher un commandButton à l'ouverture d'un classeur en fonction de l'utilisateur Windows.
Lorsqu'un utilisateur "Uwin02"par exemple ouvre le classeur le bouton doit être non visible si c'est un autre utilisateur le bouton est visible.
Ci joint le code placé dans un module
Merci pour votre aide
"Erreur d'exécution'91': Variable objet ou variable de bloc non définie

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub PasdeCB()   Dim CdB1 As Object 'Recuperer le nom de l'utilisateur du PC Range("C1") = Application.UserName   If Range("C1") = "UWIN02" Then 'Si Cellule = "Texte" alors CdB1.Visible = False 'Le Bouton est Non Visible Else 'Si non CdB1.Visible = True 'Le Bouton est Visible End If 'Fin de la Condition   End Sub

---

Bonjour,
La variable CdB1 est déclarée mais n'est assignée à aucun objet, il est donc normal d'avoir une erreur.

Code:

---

1 2	Dim CdB1 As OLEObject Set CdB1 = ThisWorkbook.Worksheets("Feuil3").OLEObjects("CommandButton1")

---

[EDIT]
La structure décisionnelle pourrait se résumer à une seule ligne

Code:

---

CdB1.Visible = Application.UserName <> "UWIN02"

---

Bonjour Philippe,
Merci pour votre réponse cela fonctionne parfaitement.
La structure décisionnelle sur une ligne simplifie mon code.