bonjour

 Set recherche = Columns("A").Find(ref)
la colonne A est l'adresse dans laquelle chercher la variable ref
si il faut chercher votre variable dans la colonne d il faut mettre D. etc.
ref est la variable à chercher. cela peut être un chiffre ou autre.

    If Not recherche Is Nothing Then  'trouvé

une fois que le programme a trouvé la lgine de la variable cherché il faut mettre ce que l'on veut : dans ce cas là on demande au programme d'aditionner dans la colonne E sur la ligne où se trouve la variable 1 à la valeur qui se trouve dans la colonne E.

   Sheets("Feuil1").Range("E" & recherche.Row) = Sheets("Feuil1").Range("E" & recherche.Row) + 1

   End If


j'espère que j'ai été assez explicite.