Logo copier sur un fichier et coller sur un autre fichier créé depuis le premier

Sub auto_open()


'Création de la page "RPL"
    If MsgBox("Do you want create a RPL?", vbYesNo + vbQuestion, "Create File RPL") = vbYes Then
    Call Create_Workbook_RPL
    Call bandeau
    Call RPL_Cde
    Call addNPA
    Call Sauvegarde
    End If
End Sub
'-------------------------------------------------------------------
Sub Create_Workbook_RPL()

Dim nivurg As String


'Récupérer le nom du fichier de la BdD
nom_BdD = ActiveWorkbook.Name


'créer feuille RPL propre à la machine
    Workbooks.Add
    
    ActiveSheet.Name = "RPL"
    
UserForm1.Show
    Range("A3").Value = designation

    With Selection.Font
        .Name = "Arial"
        .Bold = True
        .Italic = True
        .Size = 18
    End With
    
    Columns("A:A").ColumnWidth = 4
    Columns("B:B").ColumnWidth = 60
    Columns("C:C").ColumnWidth = 18
    Columns("D:D").ColumnWidth = 9

 Dim NomIcone As String ' a mettre en début de routine 

 NomIcone = "Image 13", s'obtient dans la barre de formule a gauche lorsque l'on clic droit sur l'icone
 Pose_Icone NomIcone, 1, "A" 'Appel de la routine pour la pose de l'icone image 13 en A1
End Sub
'---------------------------------------------------------------------------  
Sub Pose_Icone(NomIcone As String, Lig As Long, Col As String)
Dim NomClasseur As String

NomClasseur = ActiveWorkbook.Name
ThisWorkbook.Activate
Sheets("Up date").Select
ActiveSheet.Shapes.Range(Array(NomIcone)).Select
Selection.Copy

With Workbooks(NomClasseur).Worksheets("RPL")
  .Activate
  .Range(Col & Lig).Select
  .Paste

  'Ajustement possible
  Selection.ShapeRange.IncrementTop -4
  Selection.ShapeRange.IncrementLeft 15
  Selection.ShapeRange.ScaleWidth 0.7407086364, msoFalse, msoScaleFromTopLeft
End With

End Sub