Excel 2007 & macro

Bonjour,
J'ai un souci avec une macro qui ne fonctionne pas.
Je veux changer un clpiart en fonction d'une cellule.
Voici ma macro :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address = "$C$2" Then
Application.EnableEvents = False
x = "Photos!" & [address(match(C2,basenom,0)+1,column(photos))]
With Sheets("recherche")
.Shapes("ImageLiée4").Select
Selection.Formula = x
End With
[A1].Select
Application.EnableEvents = True
End If
If zz.Address = "$C$2" Then
Application.EnableEvents = False
x = "GPT!" & [address(match(B17,gpts,0)+1,column(pucelles))]
With Sheets("recherche")

.Shapes("ImageLiée3").Select
Selection.Formula = x
End With
[A1].Select
Application.EnableEvents = True
End If
End Sub

Le bug intervient au niveau de "Selection.Formula = x"

Merci pour votre aide