show 1 picture and a copy, but hide others (vlookup)

[Dozo2000]

Hello,

I am trying to create an A3 sticker with options via VlookUp.

It is working, but I want it to be twice on the page so I can print 2 on an A4.
It only shows me the first or the last picture, but not both..

In cells I9 and I36 is a VerticalLookUp.
[TABLE="width: 192"]
<tbody>[TR]
[TD]Name[/TD]
[TD]Picture Name[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Picture1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Picture2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]Picture3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]Picture4[/TD]
[TD][/TD]
[/TR]
</tbody><colgroup><col span="3"></colgroup>[/TABLE]

 Private Sub Worksheet_Calculate()
        Dim oPic As Picture
        Me.Pictures.Visible = False
        Sheets("B8-12  A3 ACTIE").Shapes("Dustco1").Visible = True
        Sheets("B8-12  A3 ACTIE").Shapes("Bullduster1").Visible = True
        Sheets("B8-12  A3 ACTIE").Shapes("Dustco2").Visible = True
        Sheets("B8-12  A3 ACTIE").Shapes("Bullduster2").Visible = True
        With Range("I9")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
        With Range("I36")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
    
    End Sub