incompatibilité de donnée

salut tous le monde

J'aurais une petite question concernant un bug dans mon pgm que je n'arrive pas a solutionné.

Voila le code suivant ne fonctionne pas, il me dit incompatibilité de donnée ( label33 )?

Private Sub TextBox15_Change()
Sheets("Tableau").Select
[t2] = TextBox15.Value
Macro5
Label33.Caption = ([u2])
Label33 = Format(Label33.Caption, "0.00")
If Label33.Caption < 1.21 Then
Label33.ForeColor = &H80000012
Label33.BackColor = &HC000&
Else
Label33.ForeColor = &H80000012
Label33.BackColor = &HFF&
End If ..........

Alors qu'un autre a l'identique fonctionne bien :
Private Sub TextBox5_Change()
Sheets("Tableau").Select
[g2] = TextBox5.Value
Macro2
Label2.Caption = ([h2])
Label2 = Format(Label2.Caption, "0.00")
If Label2.Caption < 5.89 Then
Label2.ForeColor = &H80000012
Label2.BackColor = &HC000&
Else
Label2.ForeColor = &H80000012
Label2.BackColor = &HFF&
End If .......

Je ne trouve pas la faille

Si quelqu'un peux m'aider ce serait sympha.
Merci

Phoenix