Sub Macro1()
'On Error Resume Next
ActiveSheet.Shapes("LIGNE").Delete
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 100, 10, 100, 100).Select
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
.Transparency = 0
.Weight = 4.5
End With
Selection.Name = "LIGNE"
End Sub