Pb avec VBA

Bonjour, j'ai un petit problème avec ma macro. Elle m'importe un fichier TXT dans mon classeur Excel mais me crée une nouvelle feuille alors que je voudrais que les données soient importées dans une feuille qui existe déjà...
Que manque t-il dans mon code ?

Merci d'avance pour vos réponses

Option Explicit
Dim MonFichier As Variant
Public Monclasseur As String
Dim Nblig As Long, i As Long, j As Long
Public Monchemin As String
Sub Importation()
'
' Importation Macro
'

'
Dim MonFichier As Variant


MonFichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If MonFichier <> False Then

Range("A1").Select
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\troncan1\Desktop\KPI.20100128.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
, Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1)), TrailingMinusNumbers _
:=True

Range("A1").Select

End If

End Sub