Power Point Aligner un objet (VBA)

[bluesky12000]

Bonjour à tous,

Dans PowerPoint, je cherche à aligner en bas tous les objets répondant à un certain nom dans toute la présentation.
Le code ci-dessous fonctionne très bien si j'enlève la référence (L) après le Then mais dans ce cas tous les objets sont alignés en bas. Or je voudrais que seulement ceux ayant le nom défini par sn soient déplacés.

Merci beaucoup

Sub aligner()
 Dim sld As Slide
 Dim L As Long
 Dim sn As String
 sn = InputBox("Entrez le nom de la forme")
 On Error Resume Next
 For Each sld In ActiveWindow.Selection.SlideRange
 For L = sld.Shapes.Count To 1 Step -1
 If sld.Shapes(L).Name = sn Then sld.Shapes(L).Range.Align msoAlignBottoms, msoTrue
 Next L
 Next sld
 End Sub