Numéroter l'ordre d'apparition d'un mot dans une ligne, dans la cellule du mot

Bonjour,

Je souhaite numéroter l'apparition d'une valeur/d'un mot par ligne, directement dans la cellule de la valeur/du mot. Je ne sais pas du tout comment m'y prendre...
Je précise que ces mots sont renseignés à l'aide de boutons qui exécutent une macro dont voici un exemple:
Sub bouton_73() 'RP
If Intersect(ActiveCell, Range("planning")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect (pwd)
ActiveCell = Sheets("Accueil").Range("B81").Value
ActiveCell.Interior.Color = RGB(0, 128, 0)
ActiveCell.Font.Color = RGB(0, 0, 0)
ActiveCell.Offset(0, 1).Select

Merci d'avance de votre aide.
Pierre