XL 2016 Bouton unique ajouter/supprimer shape

Option Explicit

Sub Attention_Cliquer() 'Action sur le bouton cliquer
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 350, 55, 100, 20) 'Crée une forme rectangulaire arrondie à l'emplacement voulu
    With shp
        .TextFrame2.TextRange.Characters.Text = "ATTENTION" 'Texte "ATTENTION"
        .TextFrame2.TextRange.Characters(-1, -1).Font.Fill.ForeColor.RGB = RGB(255, 255, 255)  'Ecriture en blanc
        .TextFrame2.TextRange.Characters(-1, -1).Font.Bold = True 'Ecriture en gras
        .Fill.ForeColor.RGB = RGB(192, 0, 0) 'Remplissage rouge bordeau
        .Line.ForeColor.RGB = RGB(192, 0, 0) 'Bordure rouge bordeau
       
        '******
        shp.Name = "MaShape" 'nom de ma shape (à modifier si tu veux)
        '******
       
    End With
shp.Select 'Sélectionner la forme
    With Selection 'Permet de régler les différents alignements
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = xlHorizontal
    End With
ActiveSheet.Range("F4").Select 'Sélectionner la cellule F4
End Sub

'*******
'*******

Sub efface() 'Et pour l'effacer
ActiveSheet.Shapes("MaShape").Delete
End Sub

ActiveSheet.Range("F4").Select 'Sélectionner la cellule F4

ActiveSheet.Shapes("MaShape").Select 'Sélectionner la forme

Sub efface() 'Et pour l'effacer
ActiveSheet.Shapes("MaShape").Delete
End Sub