Problème VBA: appel de fonction dans la partie gauche doit renvo

Bonjour,

J'ai réalisé ce code vba (je suis débutant en la matière) et lors du lancement de la macro, j'ai un problème d'appel de fonction (voir le titre) que je ne comprends pas.
Pourriez-vous me donner un coup de main svp ?

Sub quelAHT()

Dim i As Integer
Dim X(601) As Single
Dim ligne As Integer
Dim nom As String
Dim price As String
Dim minimum As Single
minimum = 101

For i = 7 To 601

If Cells(i, 30).Value <> "" And Cells(i, 24).Value <> "" And Cells(i, 23).Value <> "" And Cells(i, 26).Value <> "" And Cells(i, 2).Value = "AHT" And Cells(9, 40).Value >= Cells(i, 30).Value And Cells(10, 40).Value >= Cells(i, 24).Value And Cells(i, 23).Value <= Cells(11, 40).Value And Cells(12, 40).Value >= Cells(i, 26).Value Then
X(i) = 0.6 * (Cells(i, 30).Value / Cells(9, 40).Value) + 0.2 * (Cells(i, 24).Value / Cells(10, 40).Value) + 0.1 * (Cells(11, 40).Value / Cells(i, 23).Value) + 0.1 * (Cells(i, 26).Value / Cells(12, 40).Value)
Else: X(i) = 100
End If

If minimum > X(i) Then
minimum = X(i)
ligne = i
End If

Next i

nom = Cells(ligne, 1).Value
price = Cells(ligne, 16).Value

MsgBox "L'AHT le plus adapté est " & nom & " et son DayRate est de " & price & " ! "

Application.Run "'database AS.xls'!quelAHT"


End Sub


Merci d'avance !!