VBA ouverture fichier Excel a partir folder dialog probleme

bonjour , je voudrai ouvrir et traiter un fichier excel (copier et coller entre deux ficheir excel) a partir de folder dialog mais j'ai pas pu le faire :

dim SelectedFile as string
dim sourceList as workbook
dim sourceWsh

'Ouvrir Folder dialogue
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Select file"
.ButtonName = "Confirm"
.InitialFileName = "C:\"
If .Show = -1 Then     'ok clicked
SelectedFile = .SelectedItems(1)         'le chemin de fichier excel que je veux avoir 
MsgBox SelectedFile
Else
End If
End With

Set sourceList = Workbooks.Open(SelectedFile)
Set sourceWsh = sourceList.Worksheets("Clients")     'erreur : membre de methode introuvable
Set destWb = thisworkbook.Worksheets("Feuil1")

'supprimer les colonnes
    Range("H1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.ClearContents
    Windows(SelectedFile).Activate     'erreur dans cette ligne
    Sheets("Feuil2").Select
    Range("B4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Thisworkbook.Activate
    Range("H1").Select
    ActiveSheet.Paste

j'ai plein de message d'erreur au niveau des worksheets , la syntaxe est elle incorrecte .=?

et erreur dans : Windows(SelectedFile).Activate

indice n'appartient pas a la selection