[VBA-Excel] Fonction rebelle (maj de cellule)

Re-Bonjour à tous ,

J'ai posté un 1er message mais en me relisant j'avoue que cela m'a moi même fatigué, je reformule :

Je débute avec VBA mais c'est plutôt laborieux : Voilà quelques jours maintenant que je cherche le moyen de modifier le contenu d'une cellule via une fonction personnalisée (que j'ai nommé IFEXIST) exécutée à partir d'autre cellule.

C'est la dernière ligne de la fonction qui semble poser problème (sans elle, cela fonctionne plutôt bien, mais avec elle la fonction renvoie #VALEUR). Je n'emploie visiblement pas les bons arguments pour convaincre cette fonction de faire ce que j'attends d'elle, peut-être même que je poursuis là un voeu pieux ; pour une raison que j'ignore, il n'est peut être pas possible de modifier une autre cellule que celle qui exécute la fonction ou bien je n'ai pas la bonne syntaxe pour le faire... Qu'en pensez-vous ?

Function IFEXIST(ParamArray Prédécesseur() As Variant) 
 
 
    Dim colSelection, colDatefin, colDatedeb, i As Integer 
    Dim debFlag As Boolean 
    Dim datedeb, datefinPrec As Date 
 
 
    colDatedeb = 5 
    colDatefin = 6 
    colSelection = 10 
    datedeb = Cells(ActiveCell.Row - 1, colDatedeb) 
    'MsgBox datedeb, vbQuestion + vbOKOnly 
 
    debFlag = True 
 
   For i = 0 To UBound(Prédécesseur()) 
         LigSelection = Prédécesseur(i) + 1 
         If Cells(LigSelection, colSelection) = "Vrai" Then 
 
              datefinPrec = Cells(LigSelection, colDatefin).Value 
              If datefinPrec > datedeb Then 
                datedeb = datefinPrec 
              End If 
 
              If debFlag Then 
                IFEXIST= IFEXIST & Prédécesseur(i) 
                debFlag = False 
              Else 
                IFEXIST= IFEXIST & ";" & Prédécesseur(i) 
              End If 
           End If 
    Next i 
                '-----------------------------ci-après la ligne posant problème ----
                ActiveCell(ActiveCell.Row, colDatedeb).Value = datedeb 
End Function