Compter en VBA avec critère

Sub compteur()
    Dim compteur As Integer
    Dim state As Boolean
    For i = 2 To Sheets("BASE").Range("A65536").End(xlUp).Row
        compteur = 1
        For j = 1 To Sheets("RESULTATS").Range("A65536").End(xlUp).Row
            state = True
            If Sheets("BASE").Range("A" & i).Value = Sheets("RESULTATS").Range("A" & j).Value Then
                state = False
            End If
        Next j
        If state = True Then
            For j = i + 1 To Sheets("BASE").Range("A65536").End(xlUp).Row
                If Sheets("BASE").Range("A" & i).Value = Sheets("BASE").Range("A" & j).Value Then
                    compteur = compteur + 1
                End If
            Next j
            If compteur > 1 Then
                Sheets("RESULTATS").Range("A" & Sheets("RESULTATS").Range("A65536").End(xlUp).Row + 1).Value = Sheets("BASE").Range("A" & i).Value
                Sheets("RESULTATS").Range("B" & Sheets("RESULTATS").Range("B65536").End(xlUp).Row + 1).Value = compteur
            End If
        End If
    Next i
End Sub