Creation de d'onglet autant que de ligne

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("tableau")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 7 To Split(FL1.UsedRange.Address, "$")(4)
          Sheets.Add.Name = FL1.Cells(NoLig, NoCol).Value
    Next
    Set FL1 = Nothing
End Sub