Bonjour à tous,

J'ai une feuille dont la 2ème colonne contient des valeurs dont je recherche la première occurrence.
AAA
AAA
AAA
BBB
BBB
CCC
...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Function FirstOccur(SearchStr as String, ColNo as Integer) as Long 
Dim Rang as Range
  Set Rang = ActiveSheet.Columns(ColNo)
  FirstOccur  = Rang.Find(SearchStr).Row
end Function
FirstOccur("BBB", 2) me renvoie la valeur 4. Exact.
Mais FirstOccur("AAA", 2) me renvoie la valeur 2. Erreur

La valeur en première ligne est ignorée.

Le code donné est un extrait. En réalité elle me renvoie la première et la dernière occurrence avec des Findnext utilisée pour tester une valeur dans une deuxième colonne.
Avec "BBB", les valeurs sont 4 et 5. Exact.
Avec "AAA", les valeurs sont 2 et 1. Erreur.

J'ai essayé de paramétrer find avec SearchDirection mais cela devient tordu comme solution.

Quelqu'un pourrait-il m'éclairer sur cette anomalie ?

Merci d'avance