Re
A tester:
remplacer:
debx = cel.Left + cel.Width / 2
deby = cel.Top
finx = porteext1.Left + porteext1.Width / 2
finy = porteext1.Top + porteext1.Height
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, debx, deby, finx, finy).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen
par
debx = cel.Left + cel.Width / 2
deby = cel.Top + cel.Height / 2
finx = porteext1.Left + porteext1.Width / 2
finy = porteext1.Top + porteext1.Height / 2
lg = Sqr(((finx - debx) / cel.Width) * ((finx - debx) / cel.Width) + ((finy - deby) / cel.Height) * ((finy - deby) / cel.Height))
lgtot = lgtot + lg
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, debx, deby, finx, finy).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadOpen
et en fin de sub
msgbox(lgtot)
NB
our simplifier les flèches partent et arrivent aux centres des cellules