Bonjour, je me teste sur les macros vba, je suis toute nouvelle, je rencontre une difficulté dans une macro, pourriez vous m'aider?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub ValidationOk()
Dim cell As Range
For Each cell In Range("B3:B30")
    If Range("B3:B30") = "OK" Then GoToRange ("E3:E30")
        Range ("A3:A30")
    End If
Next
End Sub

Cela me met Erreur de compilation:
Sub ou Function Non définie.
Je ne comprends pas.