Bonjour à tous,
Si tu n'est pas allergique aux macros,
petit exercice sur le "CountIf" (NB.SI)
Sub essai() 'dernière valeur (résultat)
Dim Cel As Range, Ligne%
Dim Lg&, Lg2%, i%, x%
Application.ScreenUpdating = False
Lg = Range("a" & Rows.Count).End(xlUp).Row
Lg2 = Columns("d:g").Find("*", , , , xlByRows, xlPrevious).Row + 1
For Each Cel In Range("d2:g2") 'à régler
For i = 3 To Lg
x = Application.CountIf(Range("a" & i & ":a" & Lg), Cel)
If x = 0 Then Exit For
If x > 0 And Cells(i, "a") = Cel Then Ligne = Cells(i, "a").Row
Next i
If Ligne > 0 Then Cells(Lg2, Cel.Column) = Cells(Ligne, "b") 'résultat
Ligne = 0
Next Cel
End Sub
peut surement mieux faire !
Amicalement
Claude