Ou est l'erreur VBA (Résolu)

[CB60]

Bonsoir
J'ai réalisé cette macro

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

Elle fonctionne en mode pas à pas ( F8), mais lorsque je la lance via un bouton elle plante sur la ligne

ActiveWorkbook.Names.Add Name:=nom.Value, RefersTo:="=OFFSET(Base!R" & ligne & "C1 ,,COUNT(Base!R2),,-Résult!R1C2)"

Pouvez vous m'indiquer pourquoi!

PS: J'ai trouvé, pour mon test j'avais mis dans certaine cellule un alea entre borne, en pas à pas cela ne posé pas de soucis, mais en automatique à chaque changement de ligne de la macro le recalcule des cellules faisaient planter