Nommer des cellules

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim DernLigne As Long
DernLigne = Range("A65536").End(xlUp).Row
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 2 To DernLigne 'démarre à la 2ème ligne jusqu' a la dernière ligne de la colonne A
        Var = FL1.Cells(NoLig, NoCol)
         ActiveWorkbook.Names.Add Name:="Nom_" & NoLig - 1, RefersToR1C1:="=Feuil1!" & "R" & NoLig & "C" & NoCol
    Next
    Set FL1 = Nothing
End Sub

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 1 To 20
        Var = FL1.Cells(NoLig, NoCol)
        FL1.Cells(NoLig, NoCol).Value = "Nom_" & NoLig
    Next
    Set FL1 = Nothing
End Sub