Option Explicit
Sub Export_JPG()
Dim Plage As Range
Dim Chemin As String
Dim Wks As Worksheet
Chemin = ActiveWorkbook.Path & "\" 'a adapter
For Each Wks In ActiveWorkbook.Worksheets
If Left(Wks.Name, 4) = "plat" Then
Set Plage = Wks.Range("A1:B3")
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export Chemin & Wks.Cells(2, 2) & ".jpg", "JPG"
End With
ActiveWorkbook.Close False
End If
Next
End Sub