Effacer des TextBox dans un formulaire

[J-Charles]

Bonsoir,
J'ai écris quelques ligne de macros afin de remettre à vide (effacer) des TextBox dans un formulaire.

For each oObjet In activeSheet.OLEObjects
	If TypeOf oObjet.Object is MsForms.TextBox then
		oObjet.Object.Text=""
	End If
Next oObjet

Jusqu'à présent cela fonctionnait très bien jusqu'à ce que le service informatique de l'administration où je travaille face une mise à jour (Windows ou Excel, je ne sais pas). J'ai maintenant le message d'erreur suivant:
" Erreur d'exécution 1004
Impossible de lire la propriété Object de la classe OLEObject "
S'agit il d'un problème de référence ? Microsoft Office 14.0 Object Lbrary et Microsoft Forms 2.0 Object Library sont cochés.
Je travaille sous Window7 et Excel 2010.
Quelqu'un aurait il une solution même en modifiant mes lignes de macros ?
Merci d'avance pour votre aide