en travaillant autour de ces isntructions, tu devrais pouvoir faire ce que tu veux, en testant si le nom est du type textbox par exemple.
j'ai plus retrouvé comment savoir si c'est un textbox ou autre
For Each objOLE In ActiveSheet.OLEObjects
MsgBox objOLE.Name
Next objOLE