Sub ImagePlageCellules()
Application.ScreenUpdating = False
With Sheets("JLL Complet")
.Unprotect "prout"
.[A1:M41].CopyPicture
With .ChartObjects.Add(0, 0, .[A1:M41].Width, .[A1:M41].Height).Chart
.Paste
.Export ThisWorkbook.Path & "\MonImage.jpg", "JPEG"
.Parent.Delete
End With
.Protect "prout"
End With
End Sub