Effacer contenu des zones de texte

Bonjour,

Ayant chercher pendant un bon moment et n'ayant rien trouvé sur ce sujet précis, je post la solution que j'ai trouvé concernant l'effacement du contenu des zones de texte dans une feuille.

Problème rencontré :

Fichier créé sous excel 2003 puis ayant eu un enregistrement sur une version ultérieur.

Les noms de certaines zone de texte ont été modifié et du coup il m'était impossible d'effacer leur contenu puisque les noms avaient changé.

Voici donc un code qui m'a permis d'effacer tous le contenu des zones de texte d'un coup, si ça peut servir à quelqu'un.

Sub EffaceTexteShapes()
Dim Sh As Shape
With Sheets("Feuil1")
    For Each Sh In .Shapes
        If Sh.Type = msoTextBox Then
            Sh.OLEFormat.Object.Text = ""
        End If
    Next
End With
End Sub