Remplir colonne à partir d'un autre fichier

Bonjour,

Mon problème m'a l'air assez simple mais mes compétences sont beaucoup trop limitées pour le traiter.

J'ai deux listes (5000 lignes par liste) :

- La première avec deux colonnes, des noms d'application et les serveurs qui hébergent ces applications (une appli pouvant être hébergée sur plusieurs serveurs et un serveur héberger plusieurs applications)

- La seconde deux colonnes également, les noms des serveurs et les villes ou sont localisés ces serveurs

J'aimerais que les villes apparaissent dans le premier fichier, dans une troisième colonne.

Merci

Bonjour,

Sub LocationCode()
    Dim d As Object, n%, i%, ws As Worksheet
    Set d = CreateObject("Scripting.Dictionary")
    Set ws = Workbooks("Liste 2.xlsx").Worksheets(1)
    With ws
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            d(.Cells(i, 1).Value) = .Cells(i, 2)
        Next i
    End With
    Application.ScreenUpdating = False
    With ThisWorkbook.Worksheets(1)
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            .Cells(i, 3) = d(.Cells(i, 2).Value)
        Next i
    End With
End Sub

Liste 2 est supposé ouvert... Sinon modifier ligne : Set ws =... pour que cela ouvre simultanément le fichier.

Merci !

J'ai vu que c'était sensible à la casse, du coup j'ai réglé le problème en passant tout en majuscule avec la fonction UPPER(). En tout cas je vais me garder cette macro sous le coude, elle risque de me resservir !