Here is my code I’m using but didn’t work

Sub Puce_2nd_level()
    Dim slide As slide
    Dim shape As shape
    Dim textRange As textRange

    If Not ActiveWindow.Selection.textRange Is Nothing Then
        Set textRange = ActiveWindow.Selection.textRange

          
      **  With textRange.ParagraphFormat
            .LeftIndent = 3** ' This function doesn't exist
            .SpaceAfter = 3
            .Alignment = ppAlignLeft 
        '.FirstLineIndent =
        End With
    Else
        MsgBox "Veuillez sélectionner le texte auquel vous souhaitez ajouter une puce.", vbExclamation
    End If
    
End Sub