XL 2016 automatiser un template sur PPT en VBA

Bonjour à tous,
je suis nouveau sur VBA et je galère un peu à automatiser un template. Je sais bien que ce n'est pas excel mais comme je code en VBA je pense que vous pourrez m'aider.
En vous remerciant par avance,
Mon code est le suivant :
Shape étant une zone de texte et j'ai numéroté les zones de textes comme shape_k_j

Dim myShape2 As shape
Dim the_date As String
Dim oldtext As String
Dim e As Number
Dim i As Number
Dim k As Number
Dim j As Number
Private Sub Validate_Button_Click()
For e = 1 To 12
For i = 1 To 12
For k = 1 To 12
For j = 1 To 6
Private Sub UserForm_Click()
Set myShape2 = ActivePresentation.Slides(i).Shapes("shape_" & "k" & "j", "shape_global")
Start = shape.TextFrame.TextRange.Find("$" & Full_product_name & "$").Characters.Start
shape.TextFrame.TextRange.Characters(Start - 1).InsertAfter (UserForm1.TextBox_Text_e.Text)
shape.TextFrame.TextRange.Find("$" & Full_product_name & "$").Delete
End Sub
Next
Next
Next
Next
End Sub