Sub Solveur()
Range("O3:O9").Select
Selection.Copy
Range("O13").Select
ActiveSheet.Paste
SolverOk SetCell:="$D$43", MaxMinVal:=3, ValueOf:="0", ByChange:="$O$3:$O$8"
SolverSolve
Range("D14:F14").Select
Selection.Copy
Range("F43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O13:O19").Select
Application.CutCopyMode = False
Selection.Copy
Range("O3").Select
ActiveSheet.Paste
Range("O13:O19").Select
Application.CutCopyMode = False
Selection.ClearContents
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = 2
Selection.FormatConditions.Delete
Range("M18").Select
End Sub