Bonsoir,
Il faudrait savoir comment est structuré ton fichier texte car tu parle de colonnes et lignes ?
Voici un petit exemple, la proc concatène les différentes lignes du fichier pour les coller ensuite en cellule B1 :
Sub LireFichierTexte()
Dim Texte As String
Dim Ligne As String
Dim Index As Integer
Dim Chemin
On Error GoTo LigneErreur
Chemin = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
If Chemin <> False Then
Index = FreeFile
Open Chemin For Input As #Index
Do While Not EOF(Index)
Input #Index, Ligne
Texte = Texte & Ligne
Loop
Close #Index
[B1] = Texte
End If
Exit Sub
LigneErreur:
MsgBox "Erreur !"
End Sub
Hervé.