création nombre variable d'onglets

Sub AjouterOnglet()
Dim xRg, xCell, Aux

Application.ScreenUpdating = False
With Sheets("PILOTAGE")
    Set xRg = .Cells(.Rows.Count, "Z").End(xlUp)
    If xRg.Row = .Range("Z3").Row Then
        MsgBox "Pas de feuille à créer - Fini!"
        Exit Sub
    End If
    Set xRg = Range(.Range("Z4"), xRg)
End With

For Each xCell In xRg
    On Error GoTo CREATION
    Sheets(xCell.Value).Activate
Next xCell

Sheets("PILOTAGE").Activate
Application.ScreenUpdating = True
Exit Sub

CREATION:
    Sheets.Add
    ActiveSheet.Name = xCell
    Resume Next
End Sub