Sub Importe()
Application.ScreenUpdating = False
Dim Fichier As Variant
'Recherche du fichier
Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If Fichier <> False Then 'Si on n'a pas cliqué sur "Annuler"
Workbooks.Open Filename:=Fichier 'Ouverture du fichier
NomFichier = Dir(Fichier) 'Nom du fichier sans le chemin
With Workbooks(NomFichier) 'Avec le fichier que l'on vient d'ouvrir
Set f = Sheets("extraction_mesure") 'Détermination de la feuille à traiter
'Sélection de la plage à copier
f.Range("A10").Select
f.Range(Selection, Selection.End(xlToRight)).Select
f.Range(Selection, Selection.End(xlDown)).Select
'Copie de la sélection dans le fichier actuel
Selection.Copy ThisWorkbook.Sheets("rapport_extraction").Range("A5")
.Close 'Fermeture du fichier ayant servi à la copie
End With
End If
End Sub