Problè à rédiger un scripte vba

Bonjour,

Je voudrais de l'aide pour un script VBA excel svp?

Dans ma feuille 1, dans la colonne A, ce trouve 2 mots. Sois Fruits ou Viandes.

Je voudrais que quand je clique sur le bouton vba, qu'il me mette un numéro qui incrémenterai de 1 à chaque fois.

Exemple :
dans la cellule A4 = Fruits qui deviendrait Fruits1
dans la cellule A5 = Fruits qui deviendrait Fruits2
dans la cellule e A3 = Viandes qui deviendrait Viandes1
dans la cellule e A4 = Fruits qui deviendrait Fruits3
dans la cellule e A5 = Viandes qui deviendrait Viandes2

etc. jusqu'à la dernière donnée inscrite dans la colonne A.

Comment faire S.V.P.

il faut tout d'abord initialiser 3 variables (Ligne,NbFruit et NbViande) à 1
Ensuite dans une boucle tant que la cellule A & ligne n'est pas vide:
    si la cellue A & ligne ="fruits" alors elle vaut "fruits" & NbFruit et NbFruit=NbFruit+1
    si la cellue A & ligne ="Viandes" alors elle vaut "Viandes" & NbViande et NbViande =NbViande +1
    Ligne=ligne+1