Sub ZoneNommee()
Dim nom As Range
Dim ligne
For Each Zone In ActiveWorkbook.Names
Zone.Delete
Next
ligne = 1
For Each nom In Worksheets("base").Range("A1:A4")
ActiveWorkbook.Names.Add Name:=nom.Value, RefersTo:="=OFFSET(Base!R" & ligne & "C1 ,,COUNT(Base!R2),,-Résult!R1C2)"
ligne = ligne + 1
Next nom
End Sub