Effacer une forme VBA

bonjour à tous, je voudrais savoir comment supprimer une forme que j'ai crée par la formule:

    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x, y, 750, 550).Select

    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 5
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        End With
        

j'ai lu et testé quelques exemples, mais rien qui fonctionne, j'ai des boutons sur la même feuille donc les propositions de tout supprimer ne vont pas.

merci de vos compétences

Luc

Bonsoir Mysterauto, bonsoir le forum,

Essaie comme ça :

Sub Crea()
ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x, y, 750, 550).Select
Selection.Name = "Ligne1"
With Selection.ShapeRange.Line
    .Visible = msoTrue
    .Weight = 5
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub

Public Sub Suppr()
ActiveSheet.Shapes("Ligne1").Select
Selection.Delete
End Sub

un grand merci ca marche impec