Sub SelectionEmplacementFichier()
Dim NomFichier As Variant
NomFichier = Application.GetOpenFilename( _
"Fichiers Excel (*.xlsx;*.xlsm), *.xlsx;*.xlsm,Tous les fichiers (*.*),*.* ", 1, _
"Sélectionnez le fichier source des données", , False)
If NomFichier <> False Then ThisWorkbook.Sheets("PowerQuery").Range("FICHIER") = NomFichier
End Sub