Bonjour Nadcyr, Le Fil,
Si tu ne souhaites pas passer par l'Analyse de scénarios (Menu Données d'Excel) puis Valeur Cible.
Il est possible de décomposer l'analyse afin de trouver la solution par macro.
Les données sont inscrites en colonne C, de C8 à C12. La cellule C7 est au départ vide. Ce qui fera apparaitre 36162 en B16.
Puis avec la macro ci-dessous on recherche par boucle la valeur exacte de C7.
Sub Cherche()
X = Int(Range("B16"))
For c = X To Int(X - 5000) Step -1
Range("C7") = c
If Abs(Range("C7") - Range("B16")) < 2 Then Range("C7") = Range("B16"): Exit Sub
Next c
End Sub