Sub Image14_QuandClic() '
Dim FeuilleSource As Excel.Worksheet
ActiveSheet.Copy
ActiveWorkbook.SaveAs (ActiveSheet.Range("D6").Value)
[COLOR=blue]Set Wk=ActiveWorkbook[/COLOR]
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
ActiveWorkbook.Save
[COLOR=blue]Wk.close
[/COLOR]End Sub