Sub SAUVEGARDE_ONGLET()
chemin = ThisWorkbook.Path & "\"
For m = 1 To Sheets.Count
Sheets(m).Copy
With ActiveWorkbook
.ActiveSheet.Range("G14:I22").Locked = False
.ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.SaveAs Filename:=chemin & Sheets(1).Name & ".xlsx"
.Close
End With
Next
End Sub