bonjour
Ci-dessous une macro
qui calcule toutes les lignes à partir de la définition des deux tableaux et qui inscrit le résultat à partir de la cellule active.
Tous cela à modifier suivant ta configuration réelle
'Définition des deux tableaux
Public Const tableau1 = "a4:a8"
Public Const tableau2 = "a15:a23"
Public résultat
Sub deb()
monindex = 0
Set résultat = ActiveCell
Set t1 = ActiveSheet.Range(tableau1)
Set t2 = ActiveSheet.Range(tableau2)
For Each i In t1.Offset(0, 1)
For Each n In t2
If i = n Then
Call res(i.Offset(0, -1), n, monindex)
monindex = monindex + 1
End If
Next
Next
End Sub
Sub res(i, n, monindex)
résultat.Offset(monindex, 0) = i
résultat.Offset(monindex, 1).Value = n
résultat.Offset(monindex, 2) = n.Offset(0, 1)
End Sub