Erreur 1004 macro crée avec enregistreur

Bonjour,

J'ai une erreur 1004 sur la macro suivante crée avec l'enregistreur.

Quelqu'un voit il une erreur flagrante au niveau de la zone en gras, je seche totalement!

Sub Liste()
'
' Liste Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 305
ActiveWindow.ScrollRow = 396
ActiveWindow.ScrollRow = 498
ActiveWindow.ScrollRow = 629
ActiveWindow.ScrollRow = 794
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 1021
ActiveWindow.ScrollRow = 1277
ActiveWindow.ScrollRow = 1396
ActiveWindow.ScrollRow = 1487
ActiveWindow.ScrollRow = 1561
ActiveWindow.ScrollRow = 1629
ActiveWindow.ScrollRow = 1697
ActiveWindow.ScrollRow = 1766
ActiveWindow.ScrollRow = 1879
ActiveWindow.ScrollRow = 1981
ActiveWindow.ScrollRow = 2072
ActiveWindow.ScrollRow = 2180
ActiveWindow.ScrollRow = 2266
ActiveWindow.ScrollRow = 2339
ActiveWindow.ScrollRow = 2413
ActiveWindow.ScrollRow = 2476
ActiveWindow.ScrollRow = 2521
ActiveWindow.ScrollRow = 2584
ActiveWindow.ScrollRow = 2624
ActiveWindow.ScrollRow = 2675
ActiveWindow.ScrollRow = 2715
ActiveWindow.ScrollRow = 2743
ActiveWindow.ScrollRow = 2777
ActiveWindow.ScrollRow = 2788
ActiveWindow.ScrollRow = 2800
ActiveWindow.ScrollRow = 2805
ActiveWindow.ScrollRow = 2811
ActiveWindow.ScrollRow = 2817
ActiveWindow.ScrollRow = 2822
ActiveWindow.ScrollRow = 2828
ActiveWindow.ScrollRow = 2834
ActiveWindow.ScrollRow = 2845
ActiveWindow.ScrollRow = 2857
ActiveWindow.ScrollRow = 2879
ActiveWindow.ScrollRow = 2930
ActiveWindow.ScrollRow = 3004
ActiveWindow.ScrollRow = 3061
ActiveWindow.ScrollRow = 3112
ActiveWindow.ScrollRow = 3163
ActiveWindow.ScrollRow = 3220
ActiveWindow.ScrollRow = 3288
ActiveWindow.ScrollRow = 3362
ActiveWindow.ScrollRow = 3430
ActiveWindow.ScrollRow = 3510
ActiveWindow.ScrollRow = 3578
ActiveWindow.ScrollRow = 3635
ActiveWindow.ScrollRow = 3692
ActiveWindow.ScrollRow = 3743
ActiveWindow.ScrollRow = 3783
ActiveWindow.ScrollRow = 3817
ActiveWindow.ScrollRow = 3840
ActiveWindow.ScrollRow = 3857
ActiveWindow.ScrollRow = 3885
ActiveWindow.ScrollRow = 3925
ActiveWindow.ScrollRow = 3959
ActiveWindow.ScrollRow = 3970
ActiveWindow.ScrollRow = 3976
Range("F4:F4000").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=SI(F4<>"""";DECALER(d_noms;EQUIV(F4&""*"";l_noms;0)-1;;SOMME((STXT(l_noms;1;NBCAR(F4))=TEXTE(F4;""0""))*1));l_noms)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
End Sub

Merci d'avance pour votre aide

OFFICE 2007