sab

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