Sub macro2()
Dim Feuille As Worksheet
Dim Message As String, MyValue As String
Sheets("Tableau").Copy after:=Sheets(Sheets.Count)
Message = "Entrez le nom du nouvel onglet"
MyValue = InputBox(Message)
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name = MyValue Then
MsgBox "La Feuille existe déjà"
Exit Sub
End If
Next
With ActiveSheet
.Name = MyValue
.Range("B8, F8:F26 ,G8:G26, I8:I26").ClearContents
ActiveWindow.Zoom = 90
End With
End Sub