Comparaison cellule - plusieurs valeurs et remplacement

Bonjour, je viens vers vous car j'ai un petit problème. En effet, en annexe je vous fournis une fichier excel contenant une tres petite partie d'un autre fichier.

Comme vous pouvez le voir, j'ai une colonne entreprise qui correspond à des noms d'entreprise et à droite, j'ai le nom d'une entreprise avec son identifiant a coté.

Mon but ici serai de comparer chaque valeur de la colonne entreprise et de les comparer avec tous les champs de la colonne de droite . SI le nom de de l'entreprise correspond alors il faut remplacer le nom de l'entreprise par l'id qui se situe à gauche du nom correspondant.

Je sais on peut faire un SI dans ce contexte car il y a que 5 entreprises mais en réalité, il y en a plus de 160 entreprises.

Donc je ne sais pas comment m'y prendre.

Merci d'avance pour votre aide.

Bonsoir,

Faudrait voir avec la structure réelle,

la liste pourrait être sur une autre feuille.

Sub ID_entreprise()
Dim Lg&, i&, c As Range
    Application.ScreenUpdating = False
        Lg = Range("a" & Rows.Count).End(xlUp).Row
    For i = 2 To Lg
        If Range("a" & i) <> "" And Not IsNumeric(Range("a" & i)) Then
            Set c = Columns("d").Find(Range("a" & i), LookIn:=xlValues, Lookat:=xlWhole)
            If Not c Is Nothing Then
                Range("a" & i) = Cells(c.Row, "c")
            Else
                Range("b" & i) = "n'existe pas !"
                'MsgBox ("n'existe pas !")
            End If
        End If
    Next i
        Columns("a").AutoFit
End Sub

Amicalement

Claude

merci de votre réponse

N'oublie pas la petite formalité