Mise en forme conditionnelle dans une zone de texte

Bonjour tout le monde, alors voilà j'ai écris ce code :

Sub MiseAJourZoneDeTexteDTU()

'

' MiseAJourZoneDeTexteDTU Macro

xVal = Sheets("Indicateurs").[AY64]

ActiveSheet.Shapes.Range(Array("TextBox 29")).Select

With Selection.ShapeRange.Fill

.Visible = msoTrue

Select Case xVal

Case Is > 0

.ForeColor.RGB = RGB(0, 176, 80) 'VERT

Case Is < 0

.ForeColor.RGB = RGB(255, 0, 0) 'ROUGE

Case Is = 0

.ForeColor.RGB = xlNone 'TRANSPARENT

End Select

.Transparency = 0

.Solid

End With

[A1].Select

Dans certaine condition mon xVal renvoi un message personnaliser dans la zone de texte que je souhaite conditionner (exemple : "Tendance non représentative"

Et je souhaiterai savoir comment faire pour la rendre transparente dans ce cas la ? Car dans le cas ou il y a du texte dans la zone la macro s’arrête a :

Case Is > 0

Si quelqu'un pourrais m'aider :S