Bonjour,

si c'est toujours le n° qui est absent tu peux extraire la sous-chaine après le 1er espace et la rechercher dans l'autre fichier.
en E2: "2 rue martin"
=STXT(E2;CHERCHE(" ";E2)+1;100)
=> "rue martin"

eric

Merci pour l'aide mais, le numéro est un exemple car l'on peut avoir un numéro ou non et bd à la place de boulevard av pour avenue ect, les différences vont dans les 2 sens c'est a dire d'un fichier à l'autre on retrouve av et avenue dans les 2 fichiers.
Donc le probleme et qd m^m plus complexe.

C'est le gros bordel en toute simplicité, je dis merci aux créateurs de ces 2 fichiers.

Le tout serait d'avoir un maximun de recherche en auto pour finir manuellement, j'ai 1850 clients! et biensur pas assez de temps.

Le tout serait de trouvé une fonction de recherche avec des équivalents et non des valeurs vrai.

Et si tu disais le but exact...
Récupérer l'adresse la plus complète ? on pourrait supposer que c'est la plus longue à nom d'établissement égal.
Ou récuperer des données différentes dans les 2 fichiers ?

En attendant ta réponse une idée comme une autre :
faire une fonction personnalisée pour récupérer les mots clés significatifs d'un nom de voie en éliminant le nombre du début si présent, les mots de 1 et 2 lettres (pour éliminer av, bd, le, la, l', au, les initiales J, J. etc), et une liste de mots interdits (avenue, rue, ...) à compléter.
Faire les recherchev() sur ces mots clés, il devrait en rester moins à traiter à la main...

Function MotClé(source As Range)
    Dim s As String, ok As Boolean, i As Long, mots() As String, c As Range
    If source.Cells.Count <> 1 Then MotClé = "Sélection trop grande"
    If IsNumeric(source) Or IsEmpty(source) Then MotClé = "non valide"
    mots = Split(Trim(source.Value))
    ' éliminer chiffres du début
    If IsNumeric(mots(0)) Then mots(0) = ""
    For i = 1 To UBound(mots)
        ' éliminer mots de moins de 2 lettres
        If Len(mots(i)) <= 2 Then mots(i) = ""
        ' éliminer mots interdits
        For Each c In Workbooks("MotClé.xls").Worksheets("Feuil1").Range("MotsInterdits")
            If mots(i) = c.Value Then mots(i) = ""
        Next c
        If Len(mots(i)) > 0 Then s = s + " " + mots(i)
    Next i
    MotClé = Trim(s)
End Function