that's right i have On Error Resume Next
But, the condition never works even if I create one shape with this size : Set shpTitre = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 36, 21.62504, 648, 90)
Maybe you want to see my whole code ?