MACRO : Compteur automatique

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim nom As String
Dim ligne As Integer
nom = InputBox("Saisie du nom a rechercher : ", "NOM")
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne A
    For NoLig = 1 To Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne colonne A
     Var = FL1.Cells(NoLig, NoCol)
  If Var = nom Then
          ligne = ligne + 1
             End If
            Next
    Set FL1 = Nothing
  MsgBox ligne
End Sub