Bonjour,

Grace aux excellents tutos de BOISGONTIER, j'essaye de réutiliser son code de recherche passant par Dictionnary, car très rapide et conservant les données en mémoire...,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Set mondico = CreateObject("scripting.dictionary")
  Sheets("R70").Select
  a = [A1:AA10000]
  For i = 1 To 10000
    CléBase = a(i, 27)
    Clé = CléBase
    indice = 1
    Do While mondico.exists(Clé)
      Clé = CléBase & indice
      indice = indice + 1
    Loop
    mondico(Clé) = i
  Next i
mais j'ai un problème avec la déclaration de la plage, dans mon exemple, j'ai 10000 lignes, mais suivant le fichier utilisé (je l'importe), il peut y avoir 10000 lignes, 5000, 7000, etc....

et donc je ne sais pas comment faire pour déclarer "a",

Code : Sélectionner tout - Visualiser dans une fenêtre à part
a = [A1:AA10000]
à moins de le modifier à chaque fois, mais c'est vraiment du bidouillage...
J'ai essayé avec DernièreLigne, mais cela ne fonctionne pas.....

Une petite aide ?

En vous remerciant,