Evaluate et sommprod

Bonjour,

je n'ai que des erreurs de type (13/Incompatible type) avec le code suivant.

Je ne comprend pas vraiment ce qui se passe

Merci d'avance 🙂
Fenris


Function SumZone(zone As Range, nom As Range) As String

On Error GoTo Err

Dim ColCalcul_start As String, ColTri_start As String, ColCalcul_end As String, ColTri_end As String

ColCalcul_start = zone.Offset(1, 2).End(xlUp).Address
ColCalcul_end = zone.Offset(1, 2).End(xlDown).Address

ColTri_start = zone.Offset(1, 3).End(xlUp).Address
ColTri_end = zone.Offset(1, 3).End(xlDown).Address


SumMemory = Evaluate("SOMMEPROD((Objects!" & ColTri_start & ":" & ColTri_end & _
"=Objects!""" & nom.Address & """)*(Objects!" _
& ColCalcul_start & ":" & ColCalcul_end & "))")


Err:
MsgBox Err.Description

End Function