BASSMA

Bonjour,
j'ais le code suivant mais je trouve un probeme la dernier code n'est executer pas

Private Sub Command5_Click()
Text14.Text = Val(Text2.Text) / 4
If Val(Text1.Text) < Val(Text2.Text) Then
Text3.Text = Text2.Text - Text1.Text
Text5.Text = Text14.Text
Text6.Text = Text14.Text
Text7.Text = Text14.Text
ElseIf Val(Text1.Text) > Val(Text2.Text) Then
Text4.Text = Text1.Text - Text2.Text

If Text4.Text < Text14.Text Then
Text5.Text = Text14 - Text4
Text6.Text = Text14
Text7.Text = Text14

ElseIf Text4.Text > Text14.Text Then

ElseIf Text4.Text = Text14.Text Then
Text5.Text = "0"
Text6.Text = Text14.Text
Text7.Text = Text14.Text

ElseIf Text4.Text = 2 * Text14.Text Then
Text5.Text = "0"
Text6.Text = "0"
Text7.Text = Text14.Text

End If
End If
End Sub
merci