ERREUR Split() exécution '13'

Bonjour à tous,

J'ai un problème simple et qui semble récurrent : Erreur d'exécution 13.

J'ai bien compris qu'il s'agissait sans doute d'une mauvaise déclaration ou utilisation de variable mais même en bidouillant ça ne marche pas toujours. (Cette ligne de code fonctionne une fois sur trois...).

Dim rng As String

rng = ThisWorkbook.Sheets("ST").UsedRange.Address
MsgBox (Split(rng, "$")(4))

- rng me retourne " $A$1:$P$3 "
- Même en utilisant seulement Split(Sheets("ST").UsedRange.Address, "$") j'ai cette erreur
- Même avec Dim rng() As String ; Dim rng As Variant ; Dim rng() As Variant ...

Je ne sais plus comment résoudre ce soucis.

Merci de bien vouloir m'aider/guider

Stephfun