Macro pour lancer le solveur

[Nonno 94]

Bonjour le Forum,
je viens solliciter votre aide pour modifier le ou les codes qui me permettront de lancer le Solveur.
Les codes que j'utilise actuellement sont les suivants :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If [D10] = 1 Then
Bouton1_Cliquer
End If

End Sub

Sub Bouton1_Cliquer()
    Macro7
End Sub

Sub Macro7()
'
' Macro7 Macro
'

'
    'Range("D8").Select
    SolverOk SetCell:=[D8], MaxMinVal:=3, ValueOf:=[D12].Value, ByChange:="$D$5:$D$7"
SolverSolve

End Sub

La nouvelle Valeur (marge) est saisie dans la cellule [D12] et le Solveur est lancé lorsque la valeur de la Cellule [D10] est égale à 1.
Malheureusement, s'affiche alors dans la fenêtre du Solveur le message suivant :

Une autre instance d'Excel utilise SOLVER.DLL. Essayez à nouveau plus tard.

Je n'en comprends pas la raison.

Si je lance le Solveur en cliquant sur le bouton 1 "Nouvelle marge", le Solveur fonctionne normalement.

Pouvez-vous me dire ce qui ne va pas dans mes codes pour que le Solveur soit lancé lorsque la valeur de la cellule (D10] est égale à 1 ?

Afin de vous permettre de mieux comprendre mon problème, je vous joins le fichier concerné.

Avec mes remerciements et en vous souhaitant une bonne fin de journée.
Cordialement.

Nonno 94.