Si la Cells(1,1) contient un retour à la ligne à la toute fin, le code proposé insère un "vide" en dernière cellule (donc efface cette cellule si elle n'était pas vide).
S'il y a des incidences on peut modifier:
.../...
For i = LBound(T) To UBound(T)
If T(i) <> "" Then Cells(1, i + 2) = T(i)
Next
.../...
par contre si en cells(1,1) il y a un retour à la ligne en trop, il y aura un espace (cellule vide) entre deux valeurs copiées.
S'il n'en fallait pas, il faudrait rajouter un compteur incrémenté dans si T(i) <>"" et l'utiliser comme indice de colonne dans cells(1,i+2) = ... à la place de i+2