Sub Nvlle_Feuille()
Dim nm As Variant
Dim sh As Worksheet
nm = InputBox("Entrez le nom de la nouvelle Feuille", "Création feuille", "")
If Trim(nm) = "" Then
MsgBox "Opération annulée!", "Création feuille", ""
End If
Set sh = Sheets(1)
sh.Copy Before:=Sheets(1)
ActiveSheet.Name = nm
Range("I3:AO50").Select
Selection.SpecialCells(xlCellTypeVisible).ClearContents
Selection.Interior.Color = xlColorIndexNone
' S'il s'agit d'un tableau structuré
' décommenter la ligne ci-dessous et supprimer la suivante
'Selection.ListObject.Name = "T_" & nm
ThisWorkbook.Names.Add "T_" & nm, Selection
Range("BB3:BD50").ClearContents
ActiveSheet.Range("I2").Value = sh.Range("I2").Value + 7
End Sub