VBA: erreur utilisation la fonction faisant intervenir les classes

onjour,

En cadre de mon projet je dois utiliser les la fonction des classes. Donc j'ai créé une classe demande_client et ensuite j'ai crée une fonction qui fait le calcul à partir des attributs de la classe. La fonction qui est censée de faire ce calcul est appelée quand l'utilisateur clique sur le bouton du userform. Mais une erreur s'affiche. Voici les photos des mes codes et mon fichier.

Ca fait des heures que je suis bloquée, pouvez-vous m'aider svp?

Mon code:
Private Sub CommandButton1_Click()

If OptionButton1 = True Then
Dim materiau1 As Demande_client
Set materiau1 = New Demande_client
materiau1.xeffort_traction = Cells(2, 13)
Dim contrainte1 As Integer
contrainte1 = materiau1.contrainte()
End If
End Sub

La classe:
Option Explicit

'les propriétés de la classe

Public xfacteur_securité As Double
Public xlongueur As Integer
Public xrayon_section As Integer
Public xdim1 As Integer
Public xdim2 As Integer
Public xforme As String
Public xeffort_traction As Integer
Public xmodule_Young As Integer

Public Function Section() As Integer

Dim iSection As Double
Const Pi = 3.14159265358979

If xforme = "ronde" Then
iSection = Pi * (xrayon_section ^ 2)
Section = iSection
Else
iSection = xdim1 * xdim2
Section = Int(iSection)
End If

End Function

Public Function contrainte() As Integer

Dim iMateriau As Demande_client
Set iMateriau = New Demande_client
Dim iContrainte As Double
Dim aSection As Integer
aSection = iMateriau.Section()
iContrainte = (iMateriau.xeffort_traction) / (aSection)
contrainte = Int(iContrainte)

End Function