Je voudrais créer des onglets à partir d'une liste de noms contenus sur une feuille. Je voudrais aussi pouvoir détruire tout ou partie de ces onglets.

Private sub CmdCreerFeuilles_Click()
 Dim cell As Range, Nom$, Sht As Worksheet
 
 For Each cell In Selection
  Nom = cell.Value
  If Nom <> "" Then
   On Error Resume Next
   Set Sht = Sheets(Nom)
   On Error GoTo 0
   If Sht Is Nothing Then Sheets.Add.Name = Nom
  End If
 Next cell
 end sub

Astuce illustrée par ce classeur
fc-manipfichiers