bonjour Bryan,
pourquoi ne pas y aller directement,
Application.Goto Range("hello")
ActiveCell.EntireRow.Delete
sinon il faut passer par la colection names,
Set nms = ActiveWorkbook.Names
Set wks = Worksheets(1)
For r = 1 To nms.Count
wks.Cells(r, 2).Value = nms(r).Name
wks.Cells(r, 3).Value = nms(r).RefersToRange.Address
Next
isabelle