Sub bouton1_cliquer()
Const interdit$ = "\/*?[]"
Dim nom, c As Range, tst$, Erreurs$
For Each c In [Tb_Noms].SpecialCells(xlCellTypeConstants)
nom = c.Value
'Est-ce que la feuille existe déjà ?
On Error Resume Next: tst = "": tst = Worksheets(nom).Name: On Error GoTo 0
'Est-ce que nom contient des caractères interdits ?
t = Evaluate("COUNT(IFERROR(FIND(MID(""" & interdit & """,ROW(OFFSET($A$1,0,0,LEN(""" & interdit & """))),1),""" & nom & """),""""))")
If tst = "" And t = 0 And Len(nom) < 32 Then
Worksheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
Else
Erreurs = Erreurs & "\" & nom
End If
Next c
If Len(Erreurs) > 0 Then
MsgBox "Feuilles préexistantes non recrées" & Chr(10) & "Ou nom ne convenant pas pour une feuille :" & Chr(10) & Replace(Mid(Erreurs, 2), "\", Chr(10))
End If
End Sub