version macro pour compléter ton panel de solutions
Sub calcul()
Dim resultat()
salaires = ActiveSheet.ListObjects("Salaires").DataBodyRange
equipes = ActiveSheet.ListObjects("Equipes").DataBodyRange
projets = ActiveSheet.ListObjects("Projets").DataBodyRange
Range("B33").Resize(UBound(salaires), UBound(salaires, 2)) = salaires
ReDim resultat(1 To UBound(salaires), 2 To UBound(projets, 2) - 1)
For i = 1 To UBound(salaires)
For j = 2 To UBound(projets, 2) - 1
' i = individu, j = projet
resultat(i, j) = 0
For k = 1 To UBound(projets)
resultat(i, j) = resultat(i, j) + equipes(i, k + 2) * projets(k, j)
Next
resultat(i, j) = resultat(i, j) * salaires(i, 3)
Next
Next
Range("E33").Resize(UBound(resultat), UBound(resultat, 2) - 1) = resultat
End Sub