Option Explicit
Sub test()
Dim Noms As Names, i As Integer
Set Noms = ActiveWorkbook.Names
For i = Noms.Count To 1 Step -1
If Not Intersect(Evaluate(Noms(i).RefersTo), Selection) Is Nothing Then 'Il y a bien un nom sur la cellule
If Noms(i).RefersTo Like "=OFFSET*" Then Noms(i).Delete
Else
End If
Next i
End Sub