Lutte feroce d'un neophyte face a une erreur 1004

Salut a toutes les bonnes ames qui liront ce post, je suis abattu, jai
epluche pas mal de forum , pique pas mal d idees mais rien n y fait.
Faut dire que je n ai presque pas d experience VBA alors peut etre que
cette erreur est toute bete

Voila mon code VBA qui a pour but d actualiser des courbes de
regression d un graphique en fonction des donnees (que l on peut
modifier a partir de la feuille graphiqe) qui se trouvent sur une
autre feuille et qui utilisent un filtre.En gos ce code automatise le
filtrage depuis la fenetre graphique.

dsl pour l absence d accents je suis sur un clavier allemad : )


voici la bete ( je suis debutant )

Sub automatisierungderRegressionKurven()
'
' test Makro
' Makro am 29.07.2009 von marcaytac aufgezeichnet
'
Dim x As String

' Sheets("grafik").Select
Cells(3, 1) = InputBox("welches Jahr?", Default: 04)
x = Cells(3, 1).Value

If x <> vbNullString Then
Application.GoTo Sheets("ALLE PREISE").Range("A1:G3615")
'Selection.AutoFilter Field:=1, Criteria1:=x
Selection.AutoFilter Field:=1, Criteria1:=ThisWorkbook.Sheets
("grafik").Cells(3, 1).Value <= [c est la ou se produit l erreur ]
Sheets("grafik").Select
Else:
MsgBox "keine Angabe gemacht, deswegen Abbruch", vbCritical
End If
End Sub

'x = InputBox("welches Jahr?")