Sub toto()
Dim nSh$
nSh = InputBox("Nouvelle feuille ?")
If Not nSh = "" Then
Sheets.Add
On Error Resume Next
ActiveSheet.Name = nSh
If Err.Number <> 0 Then GoTo E
End If
Exit Sub
E:
Application.DisplayAlerts = 0
ActiveSheet.Delete
Application.DisplayAlerts = 1
MsgBox Err.Number & vbLf & Err.Description
End Sub
Remplacezmerci pour ton aide c bien ce que je cherche, mais un seul probleme c que la feuille doit etre creer en fin de liste est non pas au debut
cdt
Sheets.Add
Sheets.Add After:=Sheets(Sheets.Count)