Bonjour,
Un essai avec une macro : (il faut autoriser les macros à l'ouverture du fichier)
clique sur le rectangle MACRO
cdt.
Le code
Sub macro()
Dim tableau1() As String
Dim tableau2() As String
For col = 2 To Range("D65000").End(xlUp).Row
valeur = 0
For debut = 2 To Range("B65000").End(xlUp).Row
tableau1 = Split(Cells(debut, 2))
tableau2 = Split(Cells(col, 4))
compteur = 0
For i = 0 To UBound(tableau1)
For j = 0 To UBound(tableau2)
If tableau1(i) = tableau2(j) Then
compteur = compteur + 1
End If
Next
Next
If compteur = UBound(tableau1) + 1 And compteur = UBound(tableau2) + 1 Then
valeur = valeur + Cells(debut, 1)
End If
Next
Cells(col, 5) = valeur
Next
End Sub