Recopie fichier texte

Bonjour à tous

La macro ci dessous est une macro faite avec l'enregistreur de macros (excel 2010.)

Ce que je voudrais c'est de pouvoir choisir mon fichier texte sur ma clé USB car il peut en avoir plusieurs et je ne vois pas comment faire, si une âme charitable pouvais m'aider.
Je vous remercie de votre aide et vous souhaite une bonne journée à tous.

Sub FichierUSB()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;G:\A14CLUB-1-P3.txt", Destination:=Range("$A$1"))
.Name = "A14CLUB-1-P3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub