Sub Importer_Conformité_Directives()
'
Dim b As String
b = Sheets(1).Range("B33").Value
Workbooks.Open Filename:=b
Sheets("Calculs").Range("E31:E41").Select
Selection.Copy
Windows("Données source.xls").Activate
Sheets("Feuil1").Select
Range("B36").Select
Selection.Paste
'
End Sub