XL 2010 Afficher une image (logo) en tant que mise en forme conditionnelle

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 Then
        If Target <> "" Then
            With ActiveSheet
                'pour le cas ou la cellule serait rensignée par vba
                For Each pict In .Pictures
                    If pict.TopLeftCell.Address = Target.Address Then
                        pict.Delete
                    End If
                Next

                For Each pict In .Pictures
                    If pict.Name = Target.Value Then p = True
                Next

                If p = True Then
                    .Pictures(Trim(Target.Text)).Copy
                    .Paste
                    With .Pictures(.Pictures.Count)
                        .Top = Target.Top + 1
                        .Left = Target.Left + 1
                        .Width = Target.Width - 2
                        .Height = Target.Height - 2
                        .Name = "img" & Target.Address(0, 0)
                        .OnAction = "Feuil1.clickcilck"
                    End With
                End If

            End With
        End If
    End If
    Target.Select
End Sub

Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
WorkSheet_Change Selection
End Sub

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim s As Shape, t#
For Each s In Sheets("Images").Shapes
    If LCase(s.Name) = LCase(CStr(Target(1))) Then Exit For
Next
If s Is Nothing Then Exit Sub
s.Copy
Paste
Selection.Top = Target.Top
Selection.Left = Target(1, 2).Left
ActiveCell.Select 'désélectionne l'objet
t = Timer + 5: If t > 86400 Then t = 0 'temporisation de 5 secondes
While Timer < t: DoEvents: Wend
DrawingObjects.Delete
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 Then    'si la colonne est la 1 et si il y a qu'une cellule dans target
        If Target <> "" Then    'si la cellule est vide
            With ActiveSheet
                'pour le cas ou la cellule serait rensignée par vba
                'on controle qu'il est est pas une image sur cette cellule et on la supprime si c'est le cas
                For Each pict In .Pictures
                    If pict.TopLeftCell.Address = Target.Address Then
                        pict.Delete
                    End If
                Next
                'on controle maintenant si le mot tapé ou injecté par vba correspond a une image si oui p=vrai
                For Each pict In .Pictures
                    If pict.Name = Target.Value Then p = True
                Next
                'et enfin si p=vrai
                If p = True Then
                    .Pictures(Trim(Target.Text)).Copy    'on copie l'image qui porte comme nom le mot tapé dans la cellule
                    .Paste
                    With .Pictures(.Pictures.Count)    ' et on la positionne et dimentionne comme la cellule
                        .Top = Target.Top + 1
                        .Left = Target.Left + 1
                        .Width = Target.Width - 2
                        .Height = Target.Height - 2
                        .Name = "img" & Target.Address(0, 0)
                        .OnAction = "Feuil1.clickcilck"    'on affecte la macro clickclik cette nouvelle image  limage
                    End With
                End If

            End With
        End If
    End If
    Target.Select
End Sub
Sub clickcilck()
'application.caller donne le nom de la shape(image) qui a appelé clickclick
'determine la cellule ou se trouve la shape
    Set cel = Shapes(Application.Caller).TopLeftCell
    cel.ClearContents    'vide la cellule
    Shapes(Application.Caller).Delete    'supprime l'image qui a appelé clickclick
    cel.Select    'selectionne la cellule ou se trouvait l'image
    'resultat
    'quand on selectionne l'image sur une cellule on sélectionne la cellule
    'c'est bien ce que tu voulais non?
End Sub

'test par injection vba
Sub test()

    [A4] = "tour"
End Sub

 If Target.Column = 1 And Target.Count = 1 Then    'si la colonne est la 1 et si il y a qu'une cellule dans target

If not intersect([C3:AF222],target) is nothing and target.count=1 then