Private Sub Worksheet_Change(ByVal Target As Range)
ligne = ActiveCell.Row
colonne = ActiveCell.Column
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = ActiveSheet.Cells(3, 5).Value
Selection.ShapeRange.Line.DashStyle = ActiveSheet.Cells(3, 4).Value
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = ActiveSheet.Cells(3, 6).Value
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = ActiveSheet.Cells(3, 7).Value
Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Patterned msoPatternDarkDownwardDiagonal
ActiveSheet.Cells(ligne, colonne).Select
End Sub