Erreur d'execution '91'

Bonjour,



J'ai une erreur de compilation lorsque je veux valider ma macro (je suis plus que débutant dans ce domaine!) Si quelqu'un pouvait m'aider ce serait cool!

Erreur d'exécution '9 1'

Sub Bouton1_Clic()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Part.Parameter("D1@Esquisse3D1@Elément mécano-soudé2.Part").SystemValue = Range("C2").Value / 1000
Part.ClearSelection
Part.ForceRebuild
Part.Parameter("D3@Esquisse3D1@Elément mécano-soudé1.Part").SystemValue = Range("C4").Value / 1000
Part.ClearSelection
Part.ForceRebuild
End Sub