[RESOLU]Macro pour ouvrir nvlle feulle et la renomer

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