Bonjour Gosselien.
Encore une merveille de code à conserver.
J'ai essayé de repartir du code "find" que tu avais donné sur un sujet il y a quelques jours mais cela ne me sortait que la première occurence sur la liste.
Je suis content que tu aies répondu à ce poste, c'est une autre approche, super !
Par contre, peux-tu stp m'expliquer le passage non compris sur :
sText = UCase(Trim(Replace(.Cells(I, 1), "µ", vbNullString)))
Merci pour ta réponse. Bonne journée
thierry