XL 2016 Créer des feuilles pour chaque nom dans la liste

Option Explicit

Private Sub CommandButton1_Click()
  On Error GoTo ErrSheet
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n = 1 Then Exit Sub
  Dim sh As Worksheet, T, v$, k As Byte, p%, i&
  n = n - 1: T = [A2].Resize(n): ActiveCell.Select
  p = Worksheets.Count: Application.ScreenUpdating = 0
  For i = 1 To n
    v = T(i, 1)
    If v <> "" Then
      k = 0: Set sh = Worksheets(v)
      If k = 1 Then
        Worksheets("EXEMPLE").Copy , Worksheets(p)
        ActiveSheet.Name = v: p = p + 1
      End If
    End If
  Next i
  Worksheets("NOMS").Select
  Exit Sub
'si la feuille existe déjà :
ErrSheet: k = 1: Resume Next
End Sub