Set Objet avec valeur variable

Bonjour le Forum, j'ai lancé un fil hier concernant "Supprimer valeur dans TextBox" mais je crois que mon problème était mal identifié. C'est pourquoi je relance un fil avec de nouvelles informations.

Voici ma question : Comment peut-on attribuer une valeur variable à un objet ?

Voici mon code et j'aimerais affecter la valeur du Range"A1" à mon objet au lieu du ComboBox (cb).

La valeur de mon Range"A1" est variable et représente le nom de mes ComboBox (cb avec des noms différents) sélectionnés en utilisant le code suivant:

Private Sub CbNom_GotFocus()
Range("A1").value = CbNom.Name
End sub


Private Sub CbPrénom_GotFocus()
Range("A1").value = CbPrénom.Name
End sub

Donc, selon le cb sélectionné, j'aimerais exécuter le code suivant:
Sub Clear()
Dim Obj(1) as Object

Set Obj(1) = cb??? (Représente la valeur en A1)

obj(1).Style = fmStyleDropDownCombo
obj(1).Clear
obj(1).Text= ""
obj(1).Style = fmStyleDropDownList
Set obj(1) = Nothing

End Sub

Lorsque j'inscrit le cb concerné directement dans mon code, ça marche !!!😛

Sub Clear()
Dim Obj(1) as Object

Set Obj(1) = cbNom

obj(1).Style = fmStyleDropDownCombo
obj(1).Clear
obj(1).Text= ""
obj(1).Style = fmStyleDropDownList
Set obj(1) = Nothing

End Sub

Lorsque j'inscrit Range("A1").value'Ça ne fonctionne pas...🙁

Sub Clear()
Dim Obj(1) as Object

Set Obj(1) = Range("A1").value

obj(1).Style = fmStyleDropDownCombo
obj(1).Clear
obj(1).Text= ""
obj(1).Style = fmStyleDropDownList
Set obj(1) = Nothing

End Sub

Pourtant mon Range("A1").value = cbNom à cause de GotFocus si cbNom est sélectionné sur ma feuille...

il y a quelquechose que je ne comprend pas avec la valeur de l'objet !!!

Votre aide SVP

Merci

Xtian_Québec