pb de synthaxe

bonjour tout le monde,
voila mon probleme, j'ai 36 images sur ma feuille 3 et j'aimerai que celle-ci affiche une img différente selon la valeur de la cellule situé en dessous d'elle et surtout que tt ceci soit fait par une jolie boucle qui automatiserai tt ca ... voici mon code je ne vois pas pourquoi ca ne marche pas....

Private Sub Worksheet_Activate()
y = 1
For x = 1 To 5
If y > 5 Then Exit Sub
'cellule correspond a la cellule située en dessous de chaque img
cellule = Cells(y, x)
img = "Image" & y & x
' et cette partie entre crochet ne marche pas
[ If cellule = 1 Then ActiveSheet.Shapes(img).Picture = LoadPicture("C:\Documents and Settings\Nicolas\Mes documents\Mes images\gra.gif")]
If x = 5 Then
x = 0
y = y + 1
End If
Next x
End Sub

merci d'avance