Option Explicit
Sub Références_supprimer_v2()
Dim s As Shape
Application.ScreenUpdating = False
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, Range("a:a")) Is Nothing And s.Type = 13 Then
With s: .TopLeftCell.FormulaR1C1 = "=""toto""*4": .Delete: End With
End If
Next s
On Error Resume Next
[a:a].SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
Application.ScreenUpdating = True
End Sub