Bonjour
2 solutions et un petit conseil
1ère solution
Function TEST(val1 As Range)
Dim B As Variant
Set B = Range("A")
For Each C In B
If val1 = Cells(C.Row, 8) Then
TEST = TEST + C
End If
Next
End Function
2ème solution
Function TEST(val1 As Range)
'Dim B As Variant
'B = Range("A")
For Each C In Range("A")
If val1 = Cells(C.Row, 8) Then
TEST = TEST + C
End If
Next
End Function
Le petit conseil : donnes un nom significatif (même abrégé) à tes zones nommées