Sub copier
'
ThisWorkbook.Activate
Sheets("Feuil1").Select
nbl = Range("E9").CurrentRegion.Rows.Count
Range("E9:E" & nbl).ClearContents
NomExtract = InputBox("Nom du Fichier : ", "question", "question")
Workbooks(NomExtract & ".xls").Activate
Range("E9:E48").Select
Selection.Copy
ThisWorkbook.Activate
Range("E9:E48").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("A3").Select
End Sub