Option Explicit
Dim cel As Range, chn$, lig&
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Cells(1).Address(0, 0) <> "J2" Then Exit Sub
chn = .Value: Set cel = Columns(1).Find(chn, , -4163, 1, 1)
If cel Is Nothing Then
lig = Cells(Rows.Count, 1).End(3).Row + 1
Cells(lig, 1) = chn: Cells(lig, 2) = 1
Else
With Cells(cel.Row, 2): .Value = .Value + 1: End With
End If
End With
End Sub