ouverture sheets excel VBA

Bonjour, je suis sur un code VBA et je cherche à ouvrir mon fichier texte dans le sheet deja existant mais il m'ouvre un nouveau et si je l'ouvre dans l'existant je n'est pas la tabulation du nouveau sheet excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Importer_Click() Dim fichier_choisi As String   fichier_choisi = Application.GetOpenFilename("text files(*.txt),*.txt", , "Sélectionner un ficher CSV")   If (LCase(fichier_choisi) <> "faux" And fichier_choisi <> "0") Then liste_fichier.AddItem (fichier_choisi)   End If   If Right(fichier_choisi, 3) = "xls" Then Workbooks.Open fichier_choisi Else Workbooks.OpenText fichier_choisi, Tab:=True, semicolon:=True, local:=True   End If       End Sub

---

Pourriez vous m'aider à résoudre ce problème