Cherchez la méthode GoalSeek de l'objet Range.
Exemple : OK = CelCbl.GoalSeek(Goal:=Valeur, ChangingCell:=CelSrc)
CelCbl doit porter une formule dépendant de CelSrc. Valeur est une expression numérique. Une valeur d'une 3ième cellule peut faire l'affaire.