Récupération données à partir d'un fichier Excel

Bonjour à tous,

Je me permets de solliciter votre aide sur le point suivant :

Je souhaite réaliser une macro permettant de rechercher un fichier EXCEL via une boîte de dialogue, de récupérer la valeur de plage de cellules sur un onglet (soit un copier-coller) sans ouvrir ce fichier.

J'ai déjà à disposition le code suivant:

Dim FileToOpen

Dim shAncien As Worksheet

Dim shNouveau As Worksheet

Set shAncien = ActiveSheet

FileToOpen = Application.GetOpenFilename()

Workbooks.OpenText Filename:= _

FileToOpen, _

Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _

xlNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma _

:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _

TrailingMinusNumbers:=True

Set shNouveau = ActiveSheet

shNouveau.Cells(1, 1) = shAncien.Cells(1, 1)

' Active celui que tu veux fermer.

shAncien.Activate

shNouveau.Activate

' ********************************

ActiveWorkbook.Close

mais je n'arrive pas à récupérer une plage de cellules.

Pouvez-vous m'aider à récupérer une plage de cellules?

Merci d'avance pour votre aide.