Sub TracerLigne()
xd = Range("C10").Left: xf = Range("K10").Left + Range("K10").Width
y = Range("K10").Top + (Range("K10").Height) / 2
ActiveSheet.Shapes.AddLine(xd, y, xf, y).Select
With Selection
.ShapeRange.Line.Weight = Range("K10").Height
.ShapeRange.Line.Style = msoLineSingle
.ShapeRange.Line.ForeColor.SchemeColor = 10
End With
End Sub