Option Explicit
Sub Rectangleàcoinsarrondis1_Cliquer()
Dim Réponse As String, s As Shape
Réponse = MsgBox("Cette Action effacera toutes les données de cette page. Voulez vous continuer ?", vbYesNo)
If Réponse = vbNo Then
Exit Sub
Else
Feuil1.Range("A1:E50").Clear
For Each s In Feuil1.Shapes
If s.Type = 17 Then s.Delete
Next
End If
End Sub