Salut,
Testes ceci ......
Dim BeginX, BeginY, EndX, EndY, MyDocument
BeginX = TextBox1.Left + TextBox1.Width
BeginY = TextBox1.Top + (TextBox1.Height / 2 )
EndX = TextBox2.Left
EndY = TextBox2.Top + (TextBox2.Height / 2 )
ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.Visible = msoTrue
Cordialement, Jean-Paul ______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé