Avec ce code j'arrive à ouvrir un fichier txt, mais les séparateurs "tab" ne sont pas pris en compte. Tout et mis en colonne A

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub ImporterFichier()
Dim strFiles
        'Affiche la boîte de dialogue Ouvrir
strFiles = Application.GetOpenFilename _
(FileFilter:="Fichier texte(*.txt),*.txt" _
, Title:="Sélectionnez le fichier à ouvrir")
        'Inscrit le chemin et le nom du fichier ouvert
Dim r, Data
Range("A1").Select
On Error GoTo Annuler
Open strFiles For Input As #1
r = 0
Do Until EOF(1)
Line Input #1, Data
ActiveCell.Offset(r, 0) = Data
r = r + 1
Loop
Close #1
GoTo Suite
Annuler: MsgBox "Vous n'avez sélectionner aucun fichier"
Range("A1") = ""
Suite:
End Sub