Supprimer des espaces dans un tableau

Bonsoir j'ai une question assez simple mais pourtant compliquée à solutionner

j'ai le tableau suivant :

 t = array("a","g","z","","t","w,"")

comment puis je obtenir un tableau du type

t =array("a","g","z","t","w")

c'est à dire un tableau ne contenant plus les

caractères "vides"

Merci pour vos réponses .

Cordialement

finalement j'ai pu solutionner comme suit ... pas forcement élégant mais bon ca marche

Sub detection_de_repetitions_dans_un_tableau()
t = Array("a", "g", "z", "g", "a", "t", "w")
'suppression des caractères repétés par des espaces:
For i = 0 To UBound(t)
  n = 0
   For j = 0 To UBound(t)
    If i <> j And t(i) = t(j) Then
    t(j) = ""
    End If
   Next
Next

'suppression des espaces :
For s = 0 To UBound(t)
If InStr(t(s), LChar) > 0 Then
x = x & t(s)
End If
Next
MsgBox x

'renconstruction d'un tableau contenant une seule fois chaque lettre:
ReDim R(0 To Len(x) - 1)
 For k = 0 To Len(x) - 1
   R(k) = Mid(x, k + 1, 1)
Next
'test des valeurs du tableau :
For m = 0 To UBound(R)
  MsgBox R(m)
Next
End Sub

Merci quand meme

Bonsoir,

Une ligne pour convertir, ça va ?

Sub Test()
     t = Array("a", "g", "z", "", "t", "w", "")
     t = Split(Replace(Trim(Join(t)), "  ", " "))
     'Pour tester
     ActiveCell.Resize(, UBound(t) + 1) = t
End Sub

La dernière ligne est pour te permettre de vérifier le résultat en l'affectant à une plage...

Cordialement.

Mferrand Merci pour cette solution beaucoup moins longue en effet