Evaluate et sommprod

[Fenris]

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