Importer une ligne d'un fichier txt avec séparateur tabulation

Bonjour tout le monde,

Je cherche depuis plusieurs jours sur différents forum, comment importer une ligne d'un fichier txt avec séparateur de tabulation dans les cellules excel.
J'arrive à importer une ligne précise, mais il me l'imoprte dans une seule cellule et ne respecte pas le séparateur.

Voici mon code qui cherche dans le fichier et l'insère dans la cellule

Sub essai()

Dim strLigne As String

Open "C:\Users\hervé\Desktop\New référence\Ressources\Fournisseurs.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, strLigne
If InStr(1, strLigne, "A00711") > 0 Then

Range("A1").Value = strLigne

Close #1
Exit Sub
End If

Loop

Close #1
End Sub


Merci beaucoup