Bonjour,
Exemple à mettre sur un bouton :
Private Sub CommandButton1_Click()
Dim lig As Long, derlig As Long, c As Range, sh As Worksheet
Application.ScreenUpdating = False
derlig = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In [A2].Resize(derlig - 1)
On Error Resume Next
If IsError(Sheets(c.Value).Index) Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
End If
On Error GoTo 0
Next c
Sheets("Feuil1").Activate
End Sub