Sub NouvelleFeuille()
'Recopie la dernière feuille et la renomme
Dim ws As Worksheet
Dim Nom As String, Numero As Integer
Set ws = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Nom = Split(ws.Name, " ")(0) '= Feuille
Numero = Split(ws.Name, " ")(1) '= numéro
ws.Copy after:=ws 'on copie à la fin
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Nom & " " & Numero + 1 'on renomme la dernière feuille
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Unprotect 'on enlève la protection
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Range("A1").Select 'position en A1
ThisWorkbook.Save 'sauvegarder
End Sub