Salut Giz,
Voici une solution possible :
Sub TransposerTXT()
Dim Temp As String, Colonne As Byte, Ligne As Long, I As Integer
Ligne = ActiveCell.Row
Colonne = 0
'Ouverture du fichier texte en lecture :
'(adapter le chemin et le nom du fichier)
Open "D:\HC\Excel\Liste.txt" For Input As #1
Do Until EOF(1)
Line Input #1, Temp
Colonne = Colonne + 1
TText = Split(Temp, Chr(9))
'ou bien,
'si le caractère délimiteur est un point virgule :
'TText = Split(Temp, ";")
For I = 0 To UBound(TText)
Cells(Ligne + I, Colonne) = TText(I)
Next
Loop
Close
End Sub
A+
Horatio