fonction et procédure

[cricri]

salut à tous

la formule suivante est dans la cellule M11:
=si(c11="";-d11;c11)
j'aimerais mettre cette formule dans ma procédure mais je suis bloqué. Il faut relever que je travaille en mode relatif.

Merci d'avance

 

[cricri]

j'ai trouvé une solution et cà fonctionne

If ActiveCell.Offset(0, -10) = "" Then
ActiveCell.FormulaR1C1 = "=-R[0]C[-9]"
Else
ActiveCell.FormulaR1C1 = "=R[0]C[10]"
End If