Trouver le nombre d'occurences d'une valeur dans une colonne

Bonjour,

Je cherche à créer une fonction VBA qui, lors d'un onchange d'une textbox , testera si la valeur contenue dans cette textbox est présente en colonne 'M'

M N

20180720 1

20180723 1

20180721 1

20180722 1

20180723 2

20180723 3

Les valeurs en colonne M sont en fait des numéros de devis basé sur la date,

L'idée est de généré en colonne N voisine , un numéro complémentaire qui s'incrémenterait à partir de 1 dans le cas ou le numéro en M existerait déja.

Pour cela, je pense que j'ai besoin de tester chaque valeur de M puis N et générer un N+1

J'étais parti sur une recherche d'adresse mais je ne vois pas comment poursuivre en ce sens :

Private Sub gen_num_devis()

Dim adresse_cellule As String

With Sheets("Clients")
    adresse_cellule = .Range("M4:M65536").Find(Me.TReferenceFixeDevis.Value).Address
    MsgBox adresse_cellule    ' message de test
End With    

    If adresse_cellule = "" Then
       MsgBox "valeur inexistante"     ' message de test
    End If

End Sub

Je suis finalement parvenu à obtenir ce que je cherchais en procédant différemment :

Private Sub gen_num_devis()

Dim nbOccurences As Integer

With Sheets("Clients")

nbOccurences = Application.WorksheetFunction.CountIf(.Range("M4:M65536"), Me.TReferenceFixeDevis.Value)
Me.CReferenceVariableDevis.Value = nbOccurences + 1

End With

End Sub