Compter nombre de ligne ou colonne A = "x"

Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim nombre As Integer
    Set FL1 = Worksheets("Feuil1")
    NoCol = 1 'lecture de la colonne 1
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = "x" Then
        nombre = nombre + 1
        End If
    Next
    MsgBox nombre
    Set FL1 = Nothing
End Sub