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