Sub Essai()
Workbooks.Open Filename:=Cells(5, 5).Value, UpdateLinks:=0
[COLOR=red][B]Ouvert = ActiveWorkbook.Name[/B][/COLOR]
Sheets("FAME").Select
Range("E14:BN20").Select
Selection.Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Sheets("MHR Data").Select
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[COLOR=red][B]Windows(Model).Activate [/B][/COLOR]
Sheets("Bio Diesel").Select
Range("F15:EB24").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Refinery Stock Monitor v.MA.xls").Activate
Range("C18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub