XL 2016 Si CODE alors affiche moi toutes les images comportant CODE

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$3" Then Exit Sub
Dim cible As Range, p As Object
Target.Select
Set cible = [B6] '1ère cellule de destination, à adapter
Application.ScreenUpdating = False
Pictures.Delete 'RAZ
For Each p In Sheets("Sheet1").Pictures
    If Application.CountIf(p.TopLeftCell.EntireRow, Target) Then
        p.Copy
        Me.Paste
        Selection.Top = cible.Top
        Selection.Left = cible.Left
        Set cible = Cells(cible.Row, Selection.BottomRightCell.Column + 1)
    End If
Next
ActiveCell.Activate 'désélectionne l'image
End Sub