Recherche macro index equiv

Bonjour,

Je suis à la recherche d'une macro index equiv pour mon fichier. Après plusieurs jours d'essai et d'adaptation de macros que je trouve sur le net,

je n'arrive toujours pas à avoir mon résultat. j'imagine que quelqu'un a dû avoir la même demande que moi :)

Je joints un fichier en PJ pour vous montrer ce que je souhaite.

En vous remerciant d'avance

Edit Modo : sujet excel et déplacé sur le bon forum

Bonjour

Avec ce code à exécuter depuis la feuille 2

Sub test()
Dim i As Integer, lig As Integer

For i = 3 To Range("B" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    lig = WorksheetFunction.Match(Range("B" & i).Value, Sheets("Feuil1").Range("B:B"), 0)
    If lig > 0 Then
        Range("C" & i) = Sheets("Feuil1").Range("C" & lig)
        lig = 0
    End If
Next i
End Sub

Enregistrez votre fichier au format XLSM pour accepter les macros

Si ok et terminé

Cordialement

Merci Dan c'était exactement ce que je voulais et en plus la réponse est trop rapide