Convertir "A1:B10" en A1:B10 pour l'utiliser dans une formule

Public Function Omega(ExcessReturns, Optional RequiredReturn)
' Omega

If IsMissing(RequiredReturn) Then
    RequiredReturn = 0
End If
      
Omega = 1 + (WorksheetFunction.Average(ExcessReturns) - RequiredReturn) / LPM(ExcessReturns, RequiredReturn, 1)
    
End Function

Public Function LPM(r, L, m)

' Input: un vecteur

n = WorksheetFunction.Max(r.Columns.Count, r.Rows.Count)
d = 0
       
For i = 1 To n
    d = d + WorksheetFunction.Max(L - r(i), 0) ^ m
Next i

LPM = d / n
    
End Function

Dim Maplage as String
Maplage=Range("CY" & c + 1 & ":" & "CY" & d).Address(0,0)
'cela donne    Exemple si c=3 et d=10
Maplage= CY4:CY10

ActiveCell.Formula = Run("Core.xls!Omega", range("CY" & c + 1 & ":" & "CY" & d), range("AX" & grid).value)