Positionner des "SHAPES" sur une feuille de calcul

Rosifoncé 

Par exemple:

Sub Macro1()
    Dim X1 As Single
    Dim Y1 As Single
    Dim X2 As Single
    Dim Y2 As Single
    Dim shp As Shape
    With Range("B2")
        X1 = .Left
        Y1 = .Top
    End With
    With Range("D4")
        X2 = .Left + .Width
        Y2 = .Top + .Height
    End With
    Set shp = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, X1, Y1, X2, Y2)
    shp.Line.EndArrowheadStyle = msoArrowheadTriangle
End Sub

Résultat: